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.REM 


IDENTIFICATION 
PRODUCT CODE: AC -E 7826 -MC 
PRODUCT NAME: CZORKBO DR11-W INTRPROC EXER 
DATE: DEC 1983 
MAINTAINER: DIAGNOSTIC ENGINEERING 


COPYRIGHT (C) 1978,1963 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


op SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
ha Byer OF oa ABOVE re NOTICE. THIS 


THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE © 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM- 
MITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 
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1.0 


2.0 


2.1 


2.2 


3.0 


ABSTRACT 


THE DR11W INTERPROCESSOR EXERCISER WAS DESIGNED TO PASS DATA BETWEEN 


TWO COMPUTERS. ONE COMPUTER CONTAINS A DR1iW OMA INTERFACE 
AND THE OTHER CONTAINS EITHER A DR1ilW OR A ORV1168 DMA INTERFACE. 
THE FOLLOWING CONFIGURATIONS ARE VALID 


LSI-11 -11 
Ss DR11-W 
8. ee eee EE ES SS 
POP -11 POP-11 
* “ty ee OR11-W 


EACH CONFIGURATION USES THE DR11W EXERCISER LOADED INTO EACH 
OF THE COMPUTERS INVOLVED. 


REQUIREMENTS 


EQUIPMENT 
1. ONE PDP11 COMPUTER EQUIPPED WITH A OR11-W. 


SEQ 3 


2. ONE LSI-11 EQUIPPED WITH A ORV11-8 OR ANOTHER PDP11 WITH A DR11-W. 


3. EACH SYSTEM EQUIPPED WITH AN I/O TERMINAL 
4. CABLES (TWO) TO INTER CONNECT THE TWO DMA INTERFACES 


STORAGE 
THE PROGRAM USES THE LOWER 3400 WORDS OF MEMORY 


LOADING AND START PROCEDURE 


1. CHOOSE ONE OF THE INTERPROCESSOR CONFIGURATIONS SPECIFIED 


AND LOAD THE OR11-W INTERPROCESSOR EXERCISER INTO EACH SYSTEM. 


1. MAKE SURE EACH DMA INTERFACE OF BOTH COMPUTER SYSTEMS 
ARE CABLED TOGETHER THRU THE I/0 CONNECTIONS 
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2. 


MAKE SURE THE DEVICE & VECTOR ADDRESSES AGREE WITH THE 
DEFAULT VALUES DEFINED IN SECTION 6.1. IF NOT, CHANGE 
LOCATION(S) AS DESIRED VIA A ‘PATCH’ METHOD CONSISTENT WITH 
WITH THE SYSTEM USED. 

INSURE THAT THE HALT SWITCH IS DISABLED (IF ANY). 

DEFINE WHAT COMPUTER IS TO BE THE INITIAL SLAVE - THE 
OTHER WILL BE THE INITIAL MASTER (THE ONE STARTED AS 
MASTER WILL REPORT THE ‘END OF PASS’ MESSAGE). 


START THE SLAVE eeFIRSTs*s AT ADDRESS 204. AFTER THE SLAVE 
HAS BEEN STARTED THE FOLLOWING PRINTOUT WILL OCCUR: 


OR1iwW INTERPROCESSOR EXERCISER 

IS THIS CPU TESTING A DRV11B8 OR OR11W? 

TYPE v OR W: 
THE OPERATOR TYPES V FOR ORV11B8 OR W FOR DRiilW. IF THE USER 
WERE TO TYPE ‘V' THEN THE FOLLOWING WOULD BE PRINTED: 


ORV118 BOARD 
INTERPROCESSOR LINK NOW IN PROGRESS.... 


AT THIS POINT THE SLAVE IS WAITING FOR THE MASTER TO BE STARTED. 
NOW START THE OTHER COMPUTER(MASTER) AT SA 200. SIMILARLY THE 
PROGRAM WILL REQUEST THE TYPE. WHEN USER ANSWERS 
(LET'S SAY WITH A W) THE PRINTOUT WILL SHOW: 


OR11iW BOARD 
INTERPROCESSOR LINK NOW IN PROGRESS.... 


THE TWO SYSTEMS SHOULD NOW BE COMMUNICATING WITH THE TESTS 
BEING PERFORMED. 


THE END OF PASS MESSAGE WILL SUSEQUENTLY OCCUR AS FOLLOWS: 


END PASS & 1 
END PASS 8 2 
eTc. 


THE FIRST END PASS IS WITH NO ITERATIONS; ALL OTHERS ARE 
WITH ITERATIONS. 


4.1 ERROR COMMENT 


SEQ 4 
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4.3 
4.3.1 


4.3.2 


ALL ERRORS ARE ACCOMPAINED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 
THE ERROR CAN BE OBTAINED FROM THE COMMENT AT THE ERROR PC 

OF FROM THE TEST ITSELF. 


ERROR DATA 

ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
BUSADR ORV11B8 BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCVO DATA THAT WAS RECEIVED 

MEMADR MEMORY ADDRESS OF DATA ERROR 


ERROR RECOVERY 
RECOVERABLE ERRORS 


BECAUSE OF THE SYNCHRONIZATION ESTABLISHED WITH THE OTHER COMPUTER, 
MOST ERROR CONDITIONS WILL CAUSE BOTH COMPUTERS TO RE-SYNCHRONIZE 

AT THE START OF THE PROGRAM. WHEN AN ERROR OCCURS, AN ERROR MESSAGE 
WILL a PRINTED. FOLLOWING THIS , A DELAY OF S-10 SEC WILL OCCUR 
AND THE COMPUTER STARTED AS SLAVE WILL PRINT: 


*RESYNC... 


THIS INDICATES THAT THIS CPU HAS SUCCESSFULLY STARTED ITS PROGRAM 
AGAIN AND IS WAITING FOR MASTER CPU. 
APPROX. 5-10 SEC LATER THE CPU STARTED AS MASTER WILL TYPE: 


*RESYNC... 


AT THIS POINT BOTH CPU'S SHOULD BE AGAIN gh AND TESTING 
WILL HAVE BEEN RESUMED FROM THE START OF THE PROGRAM 


NON-RECOVERABLE ERRORS 


SOME ERRORS CAN OCCUR DUE TO DMA INTERFACE MALFUNCTIONS, 
INTERMITTENT CABLE CONNECTIONS, ETC. 


1. AN ERROR OF THIS TYPE MAY RESULT IN ONE OR wate SYSTEMS 
STUCK IN ONE OF THE ss ¥ LOOPS’ FOUND IN THE PROGRAM. 
THE WAIT LOOP COULD BE A SOFTWARE LOOP INVOKED BY A SYSTEM WHILE 
WAITING FOR ITS COMPANION TO SET A BIT IN IT'S REGISTER. 
IF THIS NEVER COMES THEN THE SYSTEM WAITS INDEFINITELY AND 
SYNCHRONIZATION IS LOST. 


2. A_TEST SUCH AS ‘BURST DATA LATE ‘MAY FAIL AND HANG 
THE BUS OF ONE SYSTEM 


Ss . 
IN THIS CASE, THE CPU FAILS TO EXECUTE ANY FURTHER INSTRUCTIONS . 


AS STATED IN 4.3.1 MOST ERROR CONDITIONS CAN BE HANDLED BY 
RESYNCHRONIZATION. HOWEVER, THE PROGRAMS WILL NOT BE ABLE TO RECOVER 


SEQ 


Gl 


w 
~ 
°o 
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| 
254 THEMSELVES FROM THE ABOVE ERROR TYPES. THEREFORE IT BEHOOVES THE OPERATOR TO | 
255 PERIODICALLY CHECK FOR ‘END PASS’ PRINTOUTS WHICH WILL OCCUR | 
256 APPROX. EVERY 2 MINUTES. THIS WILL VERIFY THAT BOTH SYSTEMS 
257 ARE STILL IN SYNC. | 
258 IF SYNCHRONIZATION IS LOST.BOTH SYSTEMS MUST BE HALTED WHEREBY THE ADDRESS 
259 LOCATION OF EACH PROGRAM CAN BE DETECTED THRU ‘ADDRESS’ REGISTER 
260 OR ‘ODT’ PRINTOUT. BOTH PROGRAMS MUST BE RE-STARTED AS SPECIFIED 
261 IN SECT. 3.0. 
262 
263 
264 
265 
266 
267 5.0 SOFTWARE SWITCH REGISTER 
S86 ~~ = tteneneeserrersocoones 
269 
270 
271 
272 5.1 OPTIONS 
274 SWITCH OCTAL FUNCTION 
re ere eee | ewes 
276 
277 BIT1S*1 100000 HALT ON ERROR 
278 BIT13=1 020000 INHIBIT ERROR TYPEOUTS 
279 BIT10=1 002000 BELL ON ERROR 
281 
282 5.2 IMPLEMENTATION 
284 IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
285 REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
286 THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
287 IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
288 AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
289 REGISTER (LOC. 176) IS USED. _UNNDER THESE CONDITIONS 
290 THE PROGRAM WiLL REQUEST THAT THe SOFTWARE SWITCH REGISTER 
291 BE LOADED UPON 1ST PASS OF THE PROGRAM. IT WILL PRINT 
235 SWR:=XXXXXX NEW= (USER ENTERS IN FOLLOWING NEW=) 
295 | 
236 5.3 CONTROL 
298 1. THE SOFTWARE SWITCH REGISTER ‘SWREG’ (LOC. 176) CAN BE 
299 CHANGED BY USING ODT FACILITIES. 
301 2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
302 CONTROL BY TYPING THE ‘CONTROL & G' REVS. THIS KEYBOARD 
303 OPERATION WILL PRINT OUT THE CURRENT CONTENTS AND ACCEPT 
304 NEW OCTAL SWITCH REGISTER DATA TERMINATED WITH A CARRIAGE 
305 RETURN. 
307 WHEN USING THE ODT MODE AND ONCE IT HAS BEEN ENTERED DUE TO AN ERROR 
308 CONDITION WITH BIT1S SET (HALT ON ERROR), STEP @2 ABOVE 
309 IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE CONTENTS. 


See eee tc aero 
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6.0 MISCELLANEOUS 
6.1 DRV11B AND/OR DOR11W BUS — VECTOR ADDRESS MODIFICATION 


6.2 


7.0 


8.0 


8.1 


8.2 


Hi 


MODIFY LOCATION ‘INTADR’ IF BASE BUS ADDRESS IS NOT 172410 
MODIFY LOCATION ‘DRVECT’ IF VECTOR ADDRESS IS NOT 124 


NOTE: USE APPROPRIATE PATCH FACILITIES TO MODIFY THESE LOCATIONS 
AFTER PROGRAM LOAD. 


POWER FAIL 


THE PROGRAM OFFERS NO PROVISIONS FOR RESTART PROCEDURES 
DUE TO POWER FAIL. UPON POWE! ASSUMING NON 

VOLATILE MEMORY, THE PROGRAM OF EACH SYSTEM MUST BE RESTARTED 
ACCORDING TO SECT. 3.0. 


EXECUTION TIME 


EXECUTION TIME IS ABOUT 3 SEC FOR NO ITERATIONS 
EXECUTION TIME W/ITERATIONS IS DETERMINED BY THE SYSTEM CONFIGURATION 
ACTUAL RUN TIMES ARE AS FOLLOWS: 

11/34 - 11/05: 3MIN 

11/70 - 11/45: 45SEC. 

11/70 - 11/03: 1MIN 15SEC. 


PROGRAM DESCRIPTION 


THIS INTERPROCESSOR EXERCISER WAS DESIGNED TO TEST THE I/0 
ABILITY OF THE DR11W GENERAL PURPOSE INTERFACE TO COMMUNICATE TO 
ANOTHER OR1iW OR ORV11B LOCATED IN ANOTHER SYSTEM. THE TWO 
COMPUTERS ARE STARTED AT DIFFERENT ADDRESSES TO ESTABLISH 
INITIAL SYNCHRONIZATION. THE SLAVE COMPUTER IS STARTED 1ST 
CSTART 204) AND THE MASTER ee aes IS STARTED 2ND (START 200). 
THE TERMS ‘MASTER’ AND ‘SLAVE’ SHOULD BE USED LOOSELY AS THE 
MASTER WILL BECOME THE SLAVE AND THE SLAVE WILL BECOME THE 
MASTER AS THE PROGRAM ADVANCES. THE COMPUTER STARTED AT 

ADDRESS 200 WILL ALWAYS REPORT THE ‘END OF PASS' MESSAGE. 


PROGRAM SEGMENTS 


1A, MTST1 - MASTER SENDS OUT PROGRAM CONTROLLED SINGLE WORDS 
THRU THE DATA BUFFER REGISTER AND EXPECTS THE SLAVE TO ECHO 
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EACH WORD BACK TO THE MASTER VIA THE DATA BUFFER REGISTER. 
STST1 - SLAVE ECHOS ALL CHANGES IN THE DATA BUFFER REGISTER 


TEST THAT SLAVE CAN INTERRUPT MASTER: F2(SLAVE) TO ATTNCMASTER) 
TEST THAT SLAVE INTERRUPTS MASTER:F2 TO ATTN 


MTST2 - MASTER SENDS OUT A ‘'FNCT’ BIT CODE IN THE COMMAND 
STATUS REGISTER ANDO EXPECTS THE SLAVE TO ECHO EACH CODE IN 
ITS ‘FNCT’ BITS. THE MASTER WILL READ THE ‘STAT’ BIT CODE 
noe wa REGISTER AND COMPARE IT TO THE 


STST2 - SLAVE READS THE ‘STAT’ BIT CODE FROM IT'S C 
STATUS REGISTER, CONVERTS THIS CODE AND WRITES IT INTO 
IT'S ‘FNCT’ BITS IN THE COMMAND/STATUS REGISTER. 


MTST3-BLOCK MODE XFER-MASTER SENDS OUT A 32 WORD 
DATA BLOCK TO THE SLAVE 

AND CHECKS FOR PROPER INTERRUPT STATUS, WORD COUNT, 
AND BUFFER ADDRESS AT THE COMPLETION OF THE TRANSFER. 


STST3-BLOCK MODE XFER-SLAVE RECEIVES A 32 WORD DATA BLOCK FROM THE 
MASTER AND CHECKS FOR PROPER INTERRUPT STATUS, WORD COUNT, 
BUFFER ADDRESS, AND DATA CONTENT. 


MTST4 BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 
COR11-W TO (OR11-W ONLY) 
SAME AS 4A EXCEPT BURST MODE:BOARD DOES NOT RELEASE BUS 
UNTIL WORD COUNT OVERFLOW 


STST4 BURST MODE WORD XFER TEST-SLAVE RECEIVES 32 WORDS 
FROM MASTER(OR11W TO OR11W ONLY) 
SAME AS 48 EXCEPT BURST MODE 


MTSTS BURST DATA LATE TEST-MASTER XMITS S WORDS TO SLAVE 
WHILE SLAVE RECEIVES 5 AND TIMES OUT (OR11-W TO DR11-W ONLY) 


PROCEDURE: MASTER XMITS S WORDS TO SLAVE IN BURST MODE 
SLAVE IS SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS 
BY WCOF. CHECK CSR.WC,AND BA. AFTER 5S XFERS ARE DONE IN 
SLAVE, TIMEOUT OCCURS(SOUS), SINCE SLAVE WAITS FOR GO-AHEAD 
FROM MASTER TO CONTINUE.BUT MASTER NEVER RESPONDS. IN 
SLAVE: CHECK ee 5 XFERS HAVE BEEN COMPLETED. 

NOTE: SOUS IS MAX TIMEOUT THAT REPRESENTS LENGTH OF TIME 
BOARD HOLDS THE BUS WHILE WAITING FOR COMPANION . IT IS BEYOND 
THE CAPABILITY OF THIS DIAGNOSTIC TO VERIFY A SOUS TIMEOUT. 
IN FACT, IF THE TIMEOUT FEATURE MALFUNCTIONS SO AS TO HOLD 
THE BUS INDEFINITELY, THE PROGRAM WILL ‘HANG UP’ THE CPU 
WITH NO RECOVERY PROVIDED FOR. 
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THEREFORE ,OPERATOR SCRUTINY IS ADVISABLE TO VERIFY 
THAT THE PROGRAM IS STILL RUNNING AND THAT THE OR11-W HAS 
AT LEAST RELEASED THE BUS IN TEST 5S. 


- STSTS BURST DATA LATE TEST-SLAVE RECEIVES 5 WORDS 


FROM MASTER AND TIMES OUT WHILE EXPECTING MORE 

(OR11-W TO OR11-W ONLY). 

SETS UP TO RECEIVE 10 WORDS IN BURST MODE FROM MASTER, 
BUT MASTER WILL ONLY SEND 5S WORDS. 

TIMEOUT OCCURS AND THE BUS IS RELEASED 

THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA & DATA. 
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9.0 MODIFICATION HISTORY 


REV 6.0 12-DEC-83 H.P. HOLSINGER (CWO) 
ALTERED TEST EXIT (MTST4ES, STST4ES) COMPANION STATUS 
CHECK TO COMPENSATE FOR ANY STATUS LINE SKEWING. 


ADDED SAVE PC TO RESYNC CODE FOR LINK DEBUG ASSISTANCE. 


SEQ 10 


Li 
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j 

448 | 
477 .TITLE CZORKBO OR11-W INTRPROC EXER 


:*COPYRIGHT (C) 1979 
s*DIGITAL EQUIPMENT CORP. 
s*MAYNARD, MASS. 01754 


/@THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
egepae C(MAINDEC-11-DZQAC-CS), JAN, 1981. 


3* 
“aay BY JOHN W. CIUKAJ | 
000001 $TN=1 
160000 $SWR=160000 ;;sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
478 122000 $SWR=122000 
479 000001 $TN=1 
480 -SBTTL OPERATIONAL SWITCH SETTINGS , 
3% 
34 SWITCH USE 
i 
34 15 HALT ON ERROR 
38 13 INHIBIT ERROR TYPEOUTS 
34 10 BELL ON ERROR 
481 -SBTTL BASIC DEFINITIONS 
s*#INITIAL ADDRESS OF THE STACK POINTER «ee 1100 see 
001100 STACK= 1100 
104000 ERROR=EMT 
000004 SCOPE =IOT 
s*#MISCELLANEOUS DEFINITIONS 
000011 HT= 11 3sCODE FOR HORIZONTAL TAB 
000012 LF= 12 3sCODE FOR LINE FEED 
000015 CR= 15 33;CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 3sCODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 ssPROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT= 177774 33STACK LIMIT REGISTER 
177772 PIRQ= 177772 + sPROGRAM INTERRUPT REQUEST REGISTER 
177570 OSWR= 177570 s sHARDWARE SWITCH REGISTER 
177570 DOISP= 177570 + sHAROWARE DISPLAY REGISTER 
an PURPOSE REGISTER DEFINITIONS 
000000 -RO= 3 sGENERAL REGISTER 
000001 Ris st 3sGENERAL REGISTER 
000002 R2= ge 3 ;GENERAL REGISTER 
000003 R3= 3 3 sGENERAL REGISTER 
000004 R45 4 3 sGENERAL REGISTER 
000605 R5= 85 3s sGENERAL REGISTER 
000006 R6= 86 3s sGENERAL REGISTER 
000007 R7= 67 3 ;GENERAL REGISTER 
000006 SP= #6 1 1STACK POINTER 
000007 PC= “7 PROGRAM COUNTER 
s#PRIORITY LEVEL DEFINITIONS 
000000 PRO= i?) ssPRIORITY LEVEL O 
000040 PRis 40 ssPRIORITY LEVEL 1 


000100 PR2= 100 ssPRIORITY LEVEL 2 
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PR3= 140 
PR4= 200 
PRS= 240 
PR6= 300 
PR7= 340 


ssPRIORITY LEVEL 3 
ssPRIORITY LEVEL 4 
:sPRIORITY LEVEL 5 
ssPRIORITY LEVEL 6 
ssPRIORITY LEVEL 7 


3#"SWITCH REGISTER” SWITCH DEFINITIONS 
100000 


8 1 

BIT9=BITO9 
BITS=-BITOS 
BIT7=BITO7 


BIT4=BITO4 


SEQ 12 


Ni 
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BASIC DEFINITIONS 
000010 BITS=BITOS 
000004 BIT2=BITO2? 
000002 BIT1*BITO1 
000001 BITO=BITOO 
;#BASIC “CPU” TRAP VECTOR ADDRESSES 
000004 ERRVEC= 4 3sTIME OUT AND OTHER ERRORS 
000010 RESVEC= 10 ;sRESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 33"T" BIT 
000014 TRTVEC= 14 3s TRACE TRAP 
000014 BPTVEC= 14 s sBREAKPOINT TRAP (BPT) 
000020 IOTVEC= 20 ssINPUT/OUTPUT TRAP CIOT) *#*SCOPEss 
000024 PWRVEC= 24 ;sPOWER FAIL 
000030 EMTVEC= 30 3s sEMULATOR TRAP CEMT) #*ERRORes 
000034 TRAPVEC =34 33"“TRAP” TRAP 
000060 TKVEC= 60 ssTTY KEYBOARD VECTOR 
000064 TPVEC= 64 3sTTY PRINTER VECTOR 
000240 PIRQVEC #240 +sPROGRAM INTERRUPT REQUEST VECTOR 
482 106427 MTPS=*106427 sINSTR EQUATE THAT MOVES BYTE TO PSW 
483 -SBTTL TRAP CATCHER 
000000 20 
3#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
900174 sanenaie waren © TO CATCH IMPROPERLY LOADED VECTORS 
1 2 
000174 000000 DISPREG: .WORD 0O +;SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: «WORD O 3sSOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 

000200 000137 001506 JMP BESTART1 3; JUMP TO STARTING ADDRESS OF PROGRAM 
aa 000204 ocoae 001514 renee @OSTART2 3GO START AS SLAVE COMPUTER 
486 000100 000104 000200 000002 -WORD 104,200,2 IF ‘B EVENT’ ON Q-BUS IS CONNECTED 
487 sJUST DO A RTI CIGNORE IT) 
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-SBTTL COMMON TAGS 


SEQ i4 


S EOOCROEECEEEEEEEEEEEEEEEREEEEEEEEEOEEOEEEEEEEOOOEEEEEOEEEODEEOEE 
s¢THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


-*1100 


BYTE 


ccoooooocooorooooooc“oso 


o 
Ww 
| 


DOISP 


te) 
2 
12 


t+) 
<€207><377><377> 
42/ 


<15> 
<12> 


s3START OF 
3 sCONTAINS 
3 sCONTAINS 


ssCONTAINS E 


3 sCONTAINS 


COMMON TAGS 
PASS COUNT 
THE TEST NUMBER 


RROR FLAG 
SUBTEST ITERATION COUNT 
OOP ADDRESS 


ssCONTAINS SCOPE L 


3 sCONTAINS 
3; sCONTAINS 
: sCONTAINS 
3 sCONTAINS 
3 sCONTAINS 
3 sCONTAINS 


3 sCONTAINS 


SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
‘GOOD’ DATA 


DATA 


s sRESERVED--NOT TO BE USED 


s sAUTOMATIC MODE INDICATOR 
ss INTERRUPT MODE INDICATOR 


ssADORESS OF SWITCH REGISTER 
ssADCRESS OF — REGISTER 


ssCONTAINS @ OF FILLER CHARACTERS REQUIRED 
ssINSERT FILL CHARS. AFTER A “LINE FEED” 

ss “TERMINAL AVAILABLE” FLAG (BIT<07>*0*YES) 
3sCODE FOR BELL 


+ sQUESTION MARK 
ssCARRIAGE RETURN 
ssLINE FEED 


£8 S SSSSSSSSESSSSSSHEESHESSESEHSEESESEOSEESESEESESESSEESESSEEAESESEEEES 
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ERROR POINTER TABLE 


510 001224 
511 001226 


014234 
016113 
016214 
000000 


014327 
0161135 
016214 
000000 


014410 
016115 
016214 
000000 


014463 
016115 
016214 
000000 
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-SBTTL ERROR POINTER TABLE 


s¢THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

s¢THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s@LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
IF sITEMB IS O THE ONLY PERTINENT DATA IS ( SERRPC) 


s@NOTE1L: 
s@NOTE2: 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


ssPOINTS TO THE ERROR MESSAGE 
ssPOINTS TO THE DATA HEADER 
ssPOINTS TO THE DATA 

ssPOINTS TO THE DATA FORMAT 


sSLAVE FAILED TO ECHO DBR CONTENTS 
sERRPC BUSADR EXPCT RCVOD 
s$ERRPC $BDADR $sGDDAT sBDDAT 


sSLAVE FAILED TO ECHO ‘STAT’ BITS 
sERRPC BUSADR EXPCT RCVD 
sSERRPC $BDADR $sGDDAT sBDDAT 


sFAILED TO INTR ON A ‘DATI' 
sERRPC BUSADR EXPCT RCVD 
sSERRPC 8BDADR $GDDAT ‘sBDDAT 


sSTATUS ER ON ‘DATI‘ 
sERRPC BUSADR EXPCT RCVO 
sSERRPC $BDADR $GDDAT *sBDDAT 


SEQ 15 
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ERROR POINTER TABLE 


$14 001230 014527 
S15 001232 016113 
516 001234 016214 

000000 


520 001240 014577 
S21 001242 016115 
S22 001244 016214 

000000 


001250 014650 
S27 001252 016115 
S28 001254 016214 

000000 


S31 001260 014722 
S32 001262 016115 
S33 001264 016214 

000000 


537 001270 014765 
538 001272 016115 
539 001274 016214 

000000 


543 001300 015034 
344 001302 016113 
S545 001304 016214 

000000 


549 001310 015104 
SSO 001312 016150 
551 001314 016214 

000000 


SSS 001320 015145 
556 001322 016113 
557 001324 016214 

000000 


562 001330 015233 
016205 
564 0013534 016226 
000000 


568 001340 015555 
569 001342 016205 


D2 
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sERROR 


sERROR 


sERROR 


sERROR 


sERROR 16 


sPROTOCOL INITIALIZATION ERROR -MASTER AND SLAVE 


sWORD COUNT ER ON ‘DATI’ 
sERRPC BUSADR EXPCT RCVD 
s$ERRPC $BDADR $sGODAT ‘sBDDAT 


sBUFFER ADRS ER ON ‘DATI' 
sERRPC BUSADR EXPCT RCVOD 
s$ERRPC $BDADR $GDDAT %sBDDAT 


sFAILED TO INTR ON A ‘DATO’ 
sERRPC_ BUSADR EXPCT RCVO 
s$ERRPC SBDADR $GDDAT sBODAT 


sSTATUS ER ON ‘DATO’ 
sERRPC BUSADR EXPCT RCVO 
s$ERRPC $BDADR $GDDAT ‘sBDDAT 


sWORD COUNT ER ON ‘DATO’ 
sERRPC BUSADR EXPCT RCVD 
s$ERRPC $BDADR $GDDAT sBDDAT 


sBUFFER ADRS ER ON ‘DATO’ 
sERRPC BUSADR EXPCT RCVOD 
sSERRPC $BDADR $GDDAT sBDDAT 


sDATA ER ON ‘DATO’ 
sERRPC MEMADR EXPCT RCVD 
sSERRPC $BDADR $GDDAT sBDDAT 


sCSR READY BIT WAS SET - SHOULD BE CLEAR 


sSTUCK FOREVER WAITING FOR COMPANION 


SEQ 16 


L 


E2 


CZDRKBO DR11-W INTRPROC EXER MACRO M1200 27-DEC-83 11:11 PAGE 65-1 SEQ 17 
ERROR POINTER TABLE 
570 001344 016232 OT3 
44) 001346 000000 0 
$73 sERROR 17 
574 001350 015427 EM17 s TIMEOUT ERROR BURST MODE XFER-INCURRED INTERRUPT 
S75 001352 016205 OH3 
S76 001354 016226 OT2 
44 001356 0 
$79 sERROR 20 sSLAVE DID NOT INTERRUPT MASTER 
580 001360 015521 EM20 
581 001362 01 DH3 
001364 016226 OT2 
S583 001366 .¢) 
584 
S85 sERROR 21 
586 0013570 015634 EM21 sTEST 2-ERROR BIT SET IN MASTER 
587 001372 016205 OHS 
588 001374 0162352 OT3 
S89 001376 0 
$90 
$91 sERROR 22 
592 001400 015726 EM22 sBURST DATA LATE BIT IN EIR NOT SET 
593 001402 016115 OH1 
594 001404 016214 OT1 
as 001406 0 


Fe 
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ERROR POINTER TABLE 
601 s BASE REGISTER ADDRESS ASSIGNMENT 


602 
os 001410 172410 INTADR: 172410 sMODIFY THIS LOC IF DIFFERENT 
eos s VECTOR ADDRESS ASSIGNMENT 
roo 001412 000124 ORVECT: 124 sMODIFY THIS LOC IF DIFFERENT 
asa + BUS REGISTER ADDRESS POINTERS 
611 001414 172410 WCR: 172410 sWORD COUNT 
612 001416 172412 BAR: 172412 sBUFFER ADDRESS 
613 001420 172414 CSR: 172414 3 COMMAND / STATUS 
os 001422 172416 BOR: 172416 sBUFFER DATA REGISTER 
€17 s VECTOR ADDRESS POINTERS 
616 001424 000124 ORVCTO: 124 sREADY & NEX VECTOR 
tH 001426 000126 ORVCT2: 126 sNEW PSW ON INTR 
= sCOMMON PROGRAM LOCATION(S) 
623 001430 000000 CNT: te) 
624 001432 000000 NUM: 0 
625 001434 000000 BOARD: 0O sDESCRIBES BOARD TYPE:DR1iW OR ORV11B6 
001436 000000 ABORT: O sTIMER FOR ABORTING PROGRAM 
627 001440 000000 TESTPC: O 
628 001442 000000 TOTAL: O sUSED TO DETERMINE BOARD TYPE 
629 001444 000000 TIME: O sGENERAL PURPOSE COUNTER 
630 001446 000000 : oO 
631 001450 000000 SAVE: 0 sREG DATA SAVED HERE 
632 001452 000000 MSTER: 0 sO*MASTER START - NON-ZERO=SLAVE START ‘ 
633 001454 000001 ICOUNT: 1 3@ OF TIMES TO REPEAT ALL TESTS BEFORE END PASS MSG 
634 001456 177740 : -32. sXMIT WORD COUNT 
635 001460 016236 OBUF sXMIT BUFFER ADRS 
001462 000511 511 sXMIT STATUS/CONTROL 
637 001464 177740 RPRAM: -32. sRCV WORD COUNT 
638 001 016236 sRCV BUFFER ADRS 
639 001470 000115 113 sRCV STATUS/CONTROL 
641 001472 177773 XMITMO: -S sXMIT BURST DATA LATE TEST. 
642 001474 016236 OBUF 
643 001476 000501 501 
645 001500 177766 RCVTMO: -10. sRCV BURST DATA LATE TEST 
646 001502 016236 
647 001504 000105 103 


CZORKBO OR11-W 
PROGRAM START 


657 001700 


INTRPROC EXER 


005037 
000403 
012737 


012706 
005026 


001452 
177777 


001100 
001140 
001100 
012714 
000340 
012434 
000340 
013572 
000340 
000004 
001646 
177570 


177570 
177777 


001654 
000176 
000174 
000004 


001414 
001410 


000002 
001424 
001424 
001412 
000002 
001430 
177777 
002010 


Ge 
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SBTTL PROGRAM START 


START1: CLR MSTER sTHIS IT MASTER START 
aR START 3SKIP NEXT 
001452 areas MOV #-1,MSTER sSLAVE START 
-SBTTL INITIALIZE THE COMMON TAGS 
+3CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV @sSCMTAG,RE s3sFIRST LOCATION TO BE CLEARED 
CLR CR6)+ 33;CLEAR MEMORY LOCATION 
CMP @SWR.R6E ; ;DONE? 
--6 3sLO00P BACK IF NO 
@STACK ,SP 33sSETUP THE STACK POINTER 
s INITIAL TZE A FEW VECTORS 
000020 MOV @sSCOPE ,@@IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
000022 MOV 0340 ,@eIOTVEC+2 ssLEVEL 7 
000030 MOV @SERROR .SOEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
000032 MOV #340 ,.QB@EMTVEC+2 ;;LEVEL 7 
000034 MOV @sTRAP » B@TRAPVEC i. VECTOR FOR TRAP CALLS 
000036 MOV 0340, weTRAPVEC e2sLEVEL 7 
33SIZE FOR A HARDWARE SWITCH pg Led IF NOT FOUND OR IT IS 
ssEQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV BEERRVEC, -(SP) ssSAVE ERROR VECTOR 
000004 MOV 064% , BERRVEC :3SET UP ERROR VECTOR 
001140 MOV @OSWR.SWR 3sSETUP FOR A HARDWARE SWICH REGISTER 
001142 MOV @0DISP , DISPLAY s3AND A HARDWARE DISPLAY REGISTER 
177276 CMP @-1,8SWUR 33TRY TO REFERENCE HARDWARE SWR 
BNE 668% ssBRANCH IF NO TIMEOUT TRAP OCCURRED 
+ AND THE HARDWARE SWR IS NOT = -1 
BR 65% 3sBRANCH IF NO TIMEOUT 
64%: wy @65$%,(SP) + aSET UP FOR TRAP RETURN 
001140 65%: MOV @SWREG , SWR ssPOINT TO SOFTWARE SWR 
001142 MOV @OISPREG .DISPLAY 
66%: “MOV (SP)+, @@ERRVEC ;;RESTORE ERROR VECTOR 
MOV @WwCR,RO ;SET UP REG ADRS POINTERS 
MOV INTAOR ,R1 sGET BASE ADRS 
SETUP2: MOV R1,CRO)> 3sLOAD EM 
ADO @2,R1 8 
CMP @BDR+2,RO sALL DONE? 
BNE SETUP2 36R IF NOT 
MOV @ORVCTO,.RO 3sSET UP VECTOR ADRS POINTER 
MOV ORVECT,R1 sGET BASE VECTOR ADRS 
SETUPS: MOV R1,CRO)> 3 
ADO @2,R1 
CMP @ORVCT2+2,RO0 sALL DONE? 
BNE SETUPS 38R IF NOT 
-SBTTL TYPE PROGRAM NAME 
s3TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC @-1 ssFIRST TIME? 
BNE 64% + ona IF NO 
TYPE 65% TYPE ASCIZ STRING 
-SBTTL GET VALUE FOR SOF TWARE SUITCH REGISTER 
TST 8042 ssARE WE ae UNDER XXDP/ACT? 
66% ssBRANCH IF YES 
000176 CMP SUR , @SWREG | SOF TWARE SWITCH REG SELECTED? 
BNE 67% 3sBRANCH IF NO 


SEQ 19 


CZORKBO DR11-W INTRPROC EXER 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


104406 
000403 
112737 
000422 


000240 


000001 001134 66 


He 


MACRO M1200 27-DEC-83 11:11 PAGE 67-1 


3sGET SOFT-SWR SETTINGS 


67$ 
#1, $AUTOB ssSET AUTO-MODE INDICATOR 


64% 3sGET OVER THE ASCIZ 
<CRLF >@0R11W INTERPROCESSOR EXERCISER #<CRLF> 


SEQ 20 


a 


= 


CZORKBO DR11-W INTRPROC EXER 
BOARD TYPE DIALOGUE 


001100 


000001 
177777 


002524 
002112 


002172 


000127 
002420 


MACRO M1200 27-DEC-83 
.SBTTL 
BRDTYP: 
MOV 
RESET 
001454 MOV 
INC 
BEQ 
JMP 
S$: 
TYPE 
3365%: .ASCIZ 
64%: 
TYPE 
preres -ASCIZ 
ROCHR 
2s: CMP 
BNE 
001434 MOV 
TYPE 
3369%: .ASCIZ 
68%: 
TYPE 
3371$% ~ASCIZ 
708: 
BR 
38; CMP 
BEQ 
TYPE 
33738: .ASCIZ 
728: 
BR 
001434 6%: LOV 
TYPE 
BR 
parees ~ASCIZ 
: 
TYPE 
BR 
33778: .ASCIZ 
76%: 
MORS ; 
001434 4%: CMP 
BEQ 
TYPE 
16%: TYPE 
040 8%: ASCII 
126 
102 


Ie 


11:11 PAGE 68 


BOARD TYPE DIALOGUE 


@STACK , SP sALWAYS RESET STACK PTR 

sINITIALIZE BEFORE TESTING 
#1, ICOUNT 31ST TIME DO ALL TEST ONCE - THEN 100(10) 
Se. sDETERMINE BOARD TYPE ON FIRST PASS ONLY 
MORS 
rr ssTYPE ASCIZ STRING 


3sGET OVER THE ASCIZ 
CCRLF>/TS THIS CPU TESTING A DRV11B8 OR DOR11W?/<CRLF > 


67% ssTYPE ASCIZ STRING 


66$ T OVER THE ASCIZ 
/TYPE V OR W: 

CSP), 0126 

3% 

#126 ,BOARD 

69% ssTYPE ASCIZ STRING 
68% 33;GET OVER THE ASCIZ 
7V/<CRLF ><CRLF>/ORV118 BOARD/<CRLF > 
71% 33TYPE ASCIZ STRING 
708 3;GET OVER THE ASCIZ 
/INTERPROCESSOR LINK NOW IN PROGRESS...../<CRLF><CRLF> 
SYNCST 

Saal 

73% ssTYPE ASCIZ STRING 
72s 33GET OVER THE ASCIZ 
ZERROR IN ENTRY/ 

5% 

#127 ,BOARD 

758% osnwe ASCIZ STRING 
74% T OVER THE ASCIZ 
percemar sccm bai BOARD/<CRLF > 
gree ssTYPE ASCIZ STRING 


3sGET OVER THE ASCIZ 
/ENTERPROCESSOR Link NOW IN PROGRESS...../<CRLF><CRLF> 


<CRLF><CRLF>/ ORV11B BOARD/<CRLF > 


SEQ 21 


a ee eee 


3 


Je 
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BOARD TYPE DIALOGUE 
002561 040 102 117 
002564 101 122 104 
002567 200 
704 002570 111 116 124 -ASCII /INTERPROCESSOR LINK NOW IN PROGRESS...../<CRLF><CRLF><CRLF > 
002573 105 122 120 
002576 122 117 103 
002601 105 123 123 
002604 117 122 040 
002607 114 111 116 
002612 113 040 116 
002615 117 127 040 
002620 111 116 040 
002623 120 122 117 
002626 107 122 105 
002631 123 123 056 
002634 056 056 056 
002637 056 200 200 
002642 200 
705 002643 040 000 -ASCIZ / / 
706 002645 200 040 7%: -ASCII <CRLF><CRLF>/ DR11W BOARD /<CRLF> 
0026 104 122 061 
002653 061 040 
002656 102 117 101 
002661 122 104 
002664 200 
707 002665 111 116 124 -ASCII /INTERPROCESSOR LINK NOW IN PROGRESS...../<CRLF><CRLF><CRLF> 
002670 105 122 120 
002673 122 117 103 
002676 105 123 123 
002701 117 122 040 
002704 114 111 116 
002707 113 040 116 
002712 117 127 040 
002715 111 116 040 
002720 120 122 117 
002723 107 105 
002726 123 123 056 
002731 056 056 056 
002734 056 200 200 
002737 200 
708 002740 040 000 -ASCIZ // 
-EVEN 


Ke 
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| 
711 .SBTTL 
712 .SBTTL MASTER TESTS 
713 .SBTTL 
714 002742 15$: 
715 002742 004737 014050 SYNCST: JSR PC ,CPUHI 
716 002746 005737 001452 TST MSTER sSTART AS MASTER? 
717 002752 001402 BEQ MINIT1 sYES - GO SEND TO SLAVE € CHECK ECHO 
718 002754 000137 006162 JMP SINIT1 ;NO - GO ECHO MASTER'S DATA 


OR11-W 


Le 
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sMASTER PROTOCOL INIT-TEST 1 
5 EPRARRRARERAEAEAEEEESEEESEERSEEEEREREEEEEEEAREREDEAEEEESEEEDEEEE 


020000 176432 MINIT1: are + hbaeamee 
002776 TYPE .65$ ss TYPE ASCIZ STRING 


BR 64% 3sGET OVER THE ASCIZ 
ysete -ASCIZ <CRLF>/CABLE IS NOT INSERTED - HALTING / 


| 
014050 18: JSR PC, CPUHI 
001100 MOV p+ De »SP 


HALT 
176342 CLR 
001000 001444 MOV #1000, TIME 
001000 176326 2%: +34 —e sHAS SLAVE SET MASTER DSTATC 
001444 DEC TIME 
BNE es 
104000+15 


CZORKBO DR11-W INTRPROC EXER 


« MTST1 


177776 


177001 
013754 


Me 
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TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY 


001122 
001126 
001444 


001126 


176200 


-SBTTL * MTST1 TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY 

§ PRASDEREEAERESEEEEERESEREREEEEEEEEEEEEREEEEEEDESEEEREEEEEEEDEEEE 
; Seotad, Permian nneeee pane pam peceeee soceaeneenenennenenanam 
sMASTER COMPUTER STARTS HERE FROM PROGRAM START 

sIT SENDS OUT SINGLE ayes CFLOATING 1/0 PTRN) THRU THE 

s0BR TO THE SLAVE COMPUTE 

sIT LOOKS FOR THE SLAVE 10 ECHO THE OBR WORD CORRECTLY 

sWITHIN A CERTIAN AMOUNT OF TIME 

sIF IT FAILS TO RETURN THE WORD AN ERROR IS REPORTED 

sTHIS TEST IS NOT EXITED UNTIL ALL DATA PATTERNS HAVE 

sBEEN SENT AND RECEIVED CORRECTLY 

3 i PPAREAEAOESEAEEEEEEEEEAEDESESEEREDEEEDEEEEEEEEEDEEEEEEEEEE ERODE 
3 § PPARARAEEEASEERECEESEEEREEEESEDEEEEEEEEEEEEEDEEEEEEEESEEEEEDDE 


MTST1: 

1$: CLR R1 sR1 SAYS FLOAT O LEFT WHEN ZERO 
sSTART WITH #177776 IN RO 

2s: MOV RO, @BDR 3SEND PATTERN OUT 


JSR PC .GOCMPN sTELL SLAVE TO PROCEED 
MOV RO, $GDDAT sSAVE IN EXPECTED 
MOV BOR , $BDADR sSET OBR ADRS 
JSR PC ,WTCMPN sWAIT FOR SLAVE TO ECHO DATA 
MOV BOR, $BDDAT sREAD IT BACK 
MOV #1000, TIME sDELAY 
3$: OEC TIME 
BNE 3% 
CMP $GDDAT,$BDDAT  ;CORRECT? 
BEQ as sBR IF SO 
104000+1 
SYNC sRSYNC ON ERROR 
4$: OM RO sCONVERT PTRN TO FLOATING 1 
COM R1 sTIME TO FLOAT LEFT? 
BNE es 3BR IF NOT 
ASL RO sYES - FLOAT LEFT 
INC RO sKEEP LSB SET 
Bcs 2s 3BR IF ZERO NOT TO CARRY YET 


MOV #177001, 86DR sTELL SLAVE TO GO TO NEXT TEST 


JSR PC .GOCMPN sTELL SLAVE TO READ TEST TERMINATOR 


SEQ 25 


CZORKBO 
* MTST1 


Ne 
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SEQ 26 


TEST THAT SLAVE CAN ECHO THE DBR CORRECT LY 
sMASTER PROTOCOL INIT-TEST2 
-SBTTL #* TEST THAT SLAVE CAN INTERRUPT MASTER: F2(SLAVE) TO ATTNCMASTER) 
fF PARAPAEAEEAEEEEEAEEREEEAEEAERERESEEEEEEEEEEEEEEEDEEEEEEEEREREEE 
003226 012737 001000 001444 MINIT2: MOV #1000, TIME sWAIT FOR SLAVE TO CLEAR 
003234 005337 001444 1$: DEC TIME 
003240 0013575 BNE 1$ 
003242 017737 176152 001446 MOV acsR , TEMP 
003250 042737 177775 001446 BIC #177775, TEMP sCLEAR ALL BUT F1 
003256 013777 001446 176134 MOV TEMP ,@CSR 
003264 032777 1 176126 BIT #100000, aCSR sIS ERROR BIT CLEAR 
003272 001402 BEQ .*6 
003274 104021 104000+21 
003276 104412 RSYNC sRSYNC ON ERROR 
003300 012777 003462 176116 MOV @RTRN,@ORVCTO ;DEFINE RETURN 
003306 012777 000340 176112 MOV #340, @0RVCT2 
003314 004737 014076 JSR PC ,.CPULO sALLOW CPU INTERRUPT 
003320 017737 176074 001446 MOV @csR , TEMP 
003326 042737 100000 001446 BIC #BIT1S, TEMP 
003334 052737 000101 001446 BIS #101, TEMP sI&,GO 
3 013777 001446 176050 MOV TEMP , 8CSR 
003350 0352777 000002 176042 BIT #2,@CSR ;TELL SLAVE TO INTERRUPT MASTER 
003356 001415 BEQ 
3360 017737 176034 001446 MOV acsR , TEMP 
003366 042737 000002 001446 BIC #2, TEMP 
003374 042737 100000 1446 BIC o6iT15, TEMP 
013777 001446 176010 MOV TEMP ,@CSR 
003410 000414 BR S$ 
003412 017737 176002 001446 4%: MOV acsR , TEMP e 
003420 052737 000002 001446 BIS #2, TEMP 
003426 042737 100000 001446 BIC e61T15, TEMP 
003434 013777 001446 175756 MOV TEMP , aC 
003442 012737 010000 001444 5%: MOV #10000, TIME sDELAY;WAIT FOR SLAVE TO INTERRUPT 
003450 005337 001444 2 DEC TIME 
003454 0013575 BNE 3$ 
003456 104020 104000+20 
3460 104412 RSYNC sRESYNC ON ERROR 
003462 RTRN: 
003462 004737 011360 18: JSR PC .RSTVEC 
003466 032777 175724 BIT #2000, @CSR sIS ATTN CLR? 
003474 001372 BNE 1s 
003476 012777 000000 175714 MOV #0,8CSR sMAKE SURE DSTATC OF SLAVE IS CLR 
003504 CMP CSP)+,CSP)-+ sREADJUST STACK 
003506 012737 001000 001444 MOV #1000, TIME sDELAY 
003514 005337 001444 2s: DEC TIME 
003520 001375 BNE 2s 
003522 005077 175674 CLR 8B0R 


CZDRKBO DR11-w INTRPROC EXER 


e mTSTo 


013737 
012700 
012737 
010077 
004737 


5“ 
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TEST THAT SLAVE CAN ECHO THE ‘STAT’ BITS CORRECTLY 


001122 
001124 


001444 


001126 
001126 


001124 


175560 


-SBTTL ¢ MTST2 TEST THAT SLAVE CAN ECHO THE STAT’ BITS CORRECTLY 
MPELITIVITIIIT iii iritiiiiiiriiiiiiiiiriiiiiitiiiiir titi i iit 
§ FOCOOOEECEEEEEEEEEOEOESSESEEEEEEEEEEEEEEEESESEEEESOEESEEOOEEEES 
sMASTER SENDS OUT A 'FNCT’ CODE (1-7) TO THE SLAVE COMPUTER 

1 THE MASTER THEN LOOKS FOR THE SLAVE TO ECHO THE CODE VIA THE 
s‘STAT’ BITS WITHIN A CERTIAN AMOUNT OF TIME 

sIF IT FAILS TO RETURN THE CORRECT CODE AN ERROR IS REPORTED 
sTHIS TEST IS NOT EXITED UNTIL ALL ‘FNCT’ CODES HAVE BEEN 

sSENT AND RECEIVED CORRECTLY 

fF OCCOOEES CESS EOEEEEEEEEEEEEEDEEEEEOEEEEESEEESEREEEOLESEEEOEEEEEE 
§ EPOOOHOECEEEOEEESEEEEEEEEEEEEEEESEEESESEEEEODESERESEREEEOOEEOEES 


MTST2: 


MOV CSR, $BDADR sSET UP CSR ADRS 
MOV @2,R0 sSET UP INITIAL FNCT BIT COUNT 
MOV #1202, $GODAT 3LO EXPECETO 
18: MOV RO,@CSR sLOAD FNCT BITS 
JSR PC .WICMPN sLOOK FOR SLAVE 70 ECHO VIA ‘STAT’ BITS 
MOV #1000, TIME sDELAY 
es DEC TIME 
BNE 2s 
MOV @CSR, SBDDAT sREAD CSR 
BIT $GODAT , $SBDDAT sCORRECT? 
BNE 3% sBR IF SO 
104000 +2 
RSYNC sRSYNC ON ERROR 
3%: ADO #1002, $GODAT sADVANCE EXPECTED 
ADO @2,R0 sADVANCE PTRN 
BIT @20,R0 sALL BEEN DONE? 
BEQ 1s 3 IF NOT 
MOV #177002, 8B0R sTELL SLAVE TO GO TO NEXT TEST 
JSR PC .GOCMPN :GO TO COMPANION 
JSR PC, WTCMPN sWAIT FOR COMPANION 


SEQ 27 


CZDRKBO DR11-w INTRPROC EXER 


@ MTSTS BLOCK MODE 


914 004166 
915 004170 


C“ 
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WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 
.SBTTL ¢ MTST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 
BF SSSOSSSSHESSSHSHESOSHASESESSEEOSESEHESESESEEEEEEESEEEEEEEEHESEOEEEE 
8 FSSSSHOSHASHSSSHAKSSSSSASSHSESSEASEHESESHEESEESESESEEEEEESEEESESEEEEEEES 
sMASTER XMITS A 32 WORD BLOCK OF DATA TO SLAVE 
3s THEN CHECKS FOR PROPER INTERRUPT STATUS, WC E BA 
3THE SLAVE CHECKS THE SAME PLUS THE DATA RECEIVED 
8B SSCHSSASSHSSSESSESEHSEOEESEESESSEESEOESESEEEESEEEEEESEEEEHEEEEEEEEE 
MPETITITIII CTI Tririiiiiriiiiiiiitiiiirititiiriiiiititt iii T iti y yy 
MTSTS: 
004737 014050 18: JSR PC ,.CPUHI sNO INTR ALLOWED YET 
005077 175536 418: CLR acsrR 
022777 000200 175530 CMP a. acsR sIS ONLY READY SET 
001372 BNE 
017737 175522 001446 38%: MOV OCSR, TEMP 
042737 100000 001446 BIC @#BIT15, TEMP 
052737 000002 001446 BIS 02, TEMP 3SET OSTATC IN SLAVE 
sTELLS SLAVE TO SETUP FOR XFERS 
013777 001446 175476 MOV TEMP ,@CSR 
032777 001000 175470 40%: BIT #1000, 8CSR sOSTATC HERE SAYS SLAVE 
sIS READY TO DO XFERS 
001774 BEQ 403 
004537 011340 378: JSR RS, SETVEC 3SET UP INTR RETURN ADRS 
004172 3% sRETURN TO 38 ON INTR 
004537 011416 JSR RS ,LOBUF 3GO ‘DBUF’ WITH DATA PTRN 
177740 -32. DO 32. LOCATIONS 
012737 010000 001444 MOV #10000, TIME 3SET UP A TIMER VALUE 
013777 001456 175432 MOV XPRAM, GWCR 3SET UP WORD COUNT 
013777 001460 175426 MOV XPRAM+2,@BAR sSET UP BUFFER ADRS 
004737 014076 JSR PC.CPULO sALLOW THE ROY INTR 
017737 175420 001446 MOV @CSR, TEMP 
042737 100000 001446 BIC #61IT15, TEMP 
052737 000010 001446 BIS #10, TEMP sSINGLE CYCLE 
013777 001446 1753574 MOV TEMP ,@CSR 
017737 175370 001446 MOV @CSR, TEMP 
042737 1 001446 BIC #61IT15, TEMP 
042737 001446 BIC @2, TEMP 
013777 001446 175344 MOV TEMP .@CSR 
013777 001462 175336 MOV XPRAM+4,@CSR sSET UP CONTROL - IE, FNCT 3 € GO.AND CYCLE 
005337 001444 26: DEC sWAIT FOR INTR 
001375 BNE sUNTIL O 
017737 175324 001126 MOV @CSR, $BDDAT sREAD CSR - SHOULD NEVER GET HERE 
017737 175316 001446 MOV SCSR , TEMP 
042737 1 001446 BIC e6ITiS, TEMP 
042737 001446 BIC #500, TEMP sOISABLE IE € CYCLECIF THIS IS 
3A ORV11B8: CYCLE HIGH WILL 
sPREVENT BOR FROM BEING READ) 
013777 001446 175272 MOV TEMP ,@CSR 
Sorsas 000127 001434 — ar" Some sIF ORLiW:CYCLE WILL BE CLEAR 
012737 005710 001124 MOV #5710, $GDDAT sLO EXPECTED - STATA EC, CYCLE, ROY, IE, FNCT 3 
en ane sMUST BE DRV11B8 
012737 005310 001124 45%: MOV #5310, SGDDAT sSTAT AEC.ROY.IE,.FNCT 3 
013737 001420 001122 46%: MOV CSR, $8DADR sSET UP CSR ADRS 
104401 015776 TYPE oMSG1 
104003 104000+3 
000514 BR 66 3GO RESYNC ON ERROR 


OR11-W INTRPROC 
BLOCK MODE WORD 


001404 
012737 


000403 
012737 


EXER 
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D4 


XFER-MASTER XMITS 32 WORDS TO SLAVE 


001420 
015776 


001124 
175076 


001414 
015776 


001416 
015776 


001126 
001446 


38; CMP 


318; MOV 
308: 


CSP )+,(SP)-> 
@CSR, SBDDAT 
@CSR, TEMP 
#61T15, TEMP 
#500, TEMP 
TEMP ,@CSR 
#127 ,BOARD 


318 
#5710, $GODAT 


30% 

#5310, $GODAT 

_ « SBDDAT 

CSR, $BDADR 
MSG1 


6% 
XPRAM+2, $GODAT 
XPRAM,RO 


RO 

RO, SGDDAT 
SBAR , $BDDAT 
#BI TOO, SBDDAT 
_ » $B8DDAT 


$ 
BAR, $BDADR 
MSG1 


sFIX STACK SINCE NO RTI 
sREAD STATUS 


sDISABLE IE € CYCLE(CLR CYCLE IF THIS IS A ORV118) 


sLD EXPECTED - STAT AEC, CYCLE, ROY, IE, FNCT 3 


sMUST BE ORV1186 


sCORRECT? 
s6R IF SO 
sSET UP CSR ADRS 


3GO RESYNC ON ER 
3LO0 EXPECTED WC 
sREAD WORD COUNT 
3s6R IF ZERO 

3SET UP WCR ADRS 


3GO RESYNC ON ER 

sGET STARTING ADRS OF XFER 
3sGET WC 

sGET ACTUAL @ 

sCONVERT TO WORD 

sADD TO BASE ADRS 

sREAD BAR ADRS 

sELIMINATE LSB 

sCORRECT? 


36R IF SO 
3SET UP BAR ADRS 





ES 


CZORKBO DR11-W INTRPROC EXER MACRO M1200 27-DEC-83 11:11 PAGE 75 SEQ 30 
# MTSTS BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 
= sERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 
957 004422 012737 010000 001444 6%: MOV #10000, TIME sWAIT FOR SLAVE TO COMPLETE DATA CK 
958 004430 005337 001444 7$: DEC TIME sCOUNT AWAY 
959 004434 0013575 BNE 7$ sUNTIL DONE 
960 004436 000005 RESET sTELL SLAVE WE HAVE AN ERROR 
961 004440 017737 174754 001450 21%: MOV @CSR, SAVE 
962 004446 042737 170777 001450 BIC #170777, SAVE 
a7 004454 001404 5EQ 24% 
965 004456 022737 001000 001450 23%: CMP #1000, SAVE 
966 004464 001365 BNE 21% 
= 34 004466 104412 24%: RSYNC sRSYNC ON ERROR 
he 44 sNO ERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 
971 004470 012737 010000 001444 8%: MOV #10000, TIME sWAIT FOR SLAVE TO COMPLETE CKS 
972 004476 005337 001444 208: DEC TIME sCOUNT AWAY 
973 004502 001575 BNE 20% sUNTIL 
974 004504 112777 000002 174706 MOvB #2.8CSR sTELL SLAVE ALL OK 
975 004512 017737 174702 001450 9%: MOV @CSR , SAVE sREAD CSR 
976 004520 042737 170777 001450 BIC #170777, SAVE sSAVE ‘STAT’ BITS 
977 004526 001405 BEQ 118 sWAS THERE AN ERROR? 
978 004530 022737 001000 001450 CMP #1000, SAVE sNO ERROR? 
979 004536 001402 BEQ 10% 
980 004540 000764 BR 9% 
981 004542 104412 118: RSYNC sRSYNC ON ERROR 
982 004544 004737 011360 108: JSR PC .RSTVEC 3GO RESTORE VECTOR 


CZORKBO DR11-W INTRPROC 
# MTSTS BLOCK MODE WORD 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 004550 012737 
995 004556 005537 
996 004562 001575 
oo 004564 015777 
999 004572 004737 
1000 004576 004737 
1001 005777 
1002 
1003 001402 
1004 004610 000137 
1005 004614 000157 


EXER 
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XFER-MASTER XMITS 32 WORDS TO SLAVE 
sBURST MODE TESTING DETERMINATION 


§ SORHOOAEEEEAEREEEEEEREEEEESEOEEEEEEEEEOEEEEEDEDEEEEEDEEEODODEEEE 
sDETERMINE IF BURST XFERS AND BURST DATA LATE ARE 


001000 001444 MSBRD: 
444 18: 


001 
001434 
013754 


013666 
174614 


004620 
006162 


174630 


2s: 


sBE DONE. 


sARE BOTH DR11iwW'S. 
sAND MASTER SLAVE AND TESTS 1 THRU 3 WILL BE DONE AGAIN. | 


BC MAERMEREEAHEHASE RAE GAAAHABRRARELEREEERDAEAAEEERALEEAREEHS HEGRE RH 


#1000, TIME 
TIME 

1s 
BOARD , 8BOR 
PC .GOCMPN 
PC ,WICMPN 
BOR 


2s 
MTST4 
SINIT1 


SEQ 31 


TEST WILL BE DONE ONLY IF BOTH MASTER AND SLAVE 
OTHERWISE ,SLAVE WILL BECOME MASTER 


;WAIT FOR SLAVE 


sTELL SLAVE WHAT BOARD 

sTYPE MASTER IS 

sTELL SLAVE TO RESPOND 

sWAIT FOR SLAVE TO EVALUATE 

sSLAVE RESPONDS AND MASTER CAN 
sFIND OUT IF TEST 4 SHOULD BE DONE 
30 SAYS NO 

3YES;00 TEST 4 

3 


enema 


CZORKBO DR11-wW INTRPROC EXER 
@ MTST4 BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 


1009 
1010 
1011 


032777 


013737 


014050 
174570 
000200 


174554 
100000 
000002 
001446 
001000 
011340 


011416 


G4 


MACRO M1200 27-DEC-83 11:11 PAGE 77 


.SBTTL 
-SBTTL (COR11-W TO OR11-W ONLY) 


* MTST4 BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 


JS OPOROROCEEEEAEEEEEEESOOEEEEESEEEEDDEEEEERESEEEEEREEEEEEDOREEEES 
§ SPORES EEESEESEEEERESEOESAEESEOEEEEESESEOEESEEEEEEEEEEEEERESEEE 
sSAME AS TEST 3 EXCEPT BURST MODE:BOARD DOES NOT RELEASE BUS 

sUNTIL WORD COUNT OVERFLOW 
i SPARRO EEEEEESEEEEEEEEESEEEEEEEEEEEEEEEEEEEEEESEEEEEEEEOEEE 
§ I PRPROREOEEEEEEEEEEEREEESSEEEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEDEDEE 


MTST4: 


40%: 


378%: 


26: 


PC .CPUHI 
a@csR 


2s 
CSR, $BDDAT 


EMP .@CSR 
#1300, $GDDAT 
squees .cosees 
CSR, $BDADR 


sNO INTR ALLOWED YET 
sIS ONLY READY SET 


sSET OSTATC IN SLAVE 
sTELLS SLAVE TO SETUP FOR XFERS 


sOSTATC HERE SAYS SLAVE 
sIS READY TO DO XFERS 


sSET UP INTR RETURN ADRS 
a ny TO 3¢ ON INT 


WORD COUNT 
sSET UP BUFFER ADRS 
sALLOW THE RDY INTR 


3SET UP CONTROL - IE, 
sWAIT FOR INTR 

sUNTIL O 

sREAD CSR - SHOULD NEVER GET HERE 


GO,AND CYCLE 


sOISABLE IE 


sSTAT C,ROY,IE 
sSET UP CSR ADRS 


1GO RESYNC ON ERROR 
sFIX STACK SINCE NO RTI 
sREAD STATUS 


sOISABLE IE 


sCORRECT? 
368R IF SO 
sSET UP CSR ADRS 


a 


SEQ 32 


017737 
042737 
022737 
001404 


022737 
0013535 


104412 


DR1i1-W INTRPROC EXER 
COR11-W TO OR11-W ONLY) 


016030 


001124 
174220 


001414 
016030 


000010 


174070 
170777 


174052 
170777 
005000 


001444 
000012 


001444 


173776 


TYPE »MSG2 
104000 +4 
BR 6$ 
4$: CLR $GODAT 
MOV _ $BDDAT 
BEQ 
MOV BER, $BDADR 
TYPE e MSG2 
104000-+5 
BR 6% 
St: MOV XPRAM+2, $GDDAT 
MOV XPRAM,RO 
NEG RO 
ASL RO 
ADD RO, $GDDAT 
MOV SBAR , $BDDAT 
BIC @BITOO, $BDDAT 
CMP $GDDAT , $BDDAT 
BEQ 8$ 
MOV BAR , $BDADR 
TYPE »MSG2 
104000 +6 
6% MOY #10000, TIME 
78: DEC TIME 
BNE 7% 
RESET 
MOV #10,8CSR 
218: 
MOV @CsR ,, SAVE 
BIC #170777, SAVE 
BEQ 21% 
MOV @CSR , SAVE 
BIC #170777, SAVE 
CMP #5000, SAVE 
BEQ 24% 
23%: 
CMP #4000 , SAVE 
BNE 21% 
246: 
RSYNC 
8s: MOV #10000, TIME 
208: DEC TIME 
BNE 20% 
MOV #12,8CSR 


H3 
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sGO RESYNC ON ER 
sLO EXPECTED wC 
sREAD WORD COUNT 
sBR IF ZERO 

sSET UP WCR ADRS 


3GO RESYNC ON ER 

sGET STARTING ADRS OF XFER 
sGET WC 

sGET ACTUAL @ 

sCONVERT TO WORD 

sADD TO BASE ADRS 

sREAD BAR ADRS 

SEL IMINATE LSB 

sCORRECT? 

3 IF so 

;SET UP BAR ADRS 


sERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 


sWAIT g* ae TO COMPLETE DATA CK 
sCOUNT AWA 

sUNTIL DONE 

3IF ERROR THAN INIT 

sTELL SLAVE WE HAVE AN ERROR 


sTHIS SECTION MODIFIED FOR STATUS LINE SKEW 


s READ STATUS 
s CLEAR DON’T CARES 
s LOOP IF COMPANION NOT READY YET 


RE-READ STATUS 

CLEAR DON'T CARES 
CHECK FOR GOOD STATUS 
IF EQ THEN RESYNC 


s ELSE CHECK FOR COMPANION ERROR 
s IF NE THEN COMPANION STILL NOT READY 


sRSYNC ON ERROR 


sNO ERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 


sWAIT FOR SLAVE TO COMPLETE CKS 
sCOUNT AWAY 

sUNTIL DONE 

sTELL SLAVE ALL OK 


sTHIS SECTION MODIFIED FOR STATUS LINE SKEW 


SEQ 33 


DR11-W INTRPROC 
TO DR11-W ONLY) 


017737 
042737 
001771 


017737 


022737 
001353 


104412 
004737 


EXER 

173772 
170777 
173754 
170777 
005000 


004000 


011360 


MACRO M1200 27-DEC-83 11:11 PAGE 77-2 


i & 


9%: 
MOV AcsR, SAVE 
BIC #170777, SAVE 
BEQ 9$ 
MOV @CsR , SAVE 
BIC @170777,SAVE 
CMP #5000 , SAVE 
BEQ 10$ 
CMP #4000, SAVE 
BNE 9$ 

118; 
RSYNC 

108: 


JSR PC .RSTVEC 


READ CSR 
SAVE ‘STAT’ BITS 
IF COMPANION NOT READY THEN LOOP 


RE-READ STATUS 


IF SLAVE OK THEN CONTINUE 


ELSE CHECK FOR COMPANION ERROR 
IF NE THEN COMPANION STILL NOT READY 


sRSYNC ON ERROR 
sGO RESTORE VECTOR 


SEQ 34 


ee ES ee 


CZDRKBO DR11-W INTRPROC EXER 
# MTSTS BURST DATA LATE TEST-MASTER XMITS S WORDS TO SLAVE 


032777 


001441 
013737 


014050 
173706 
000200 
173672 
100000 
000002 
001446 
001000 
011340 
011416 


J 
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001444 
173602 
173576 


173566 


. SBTTL 
. SBTTL 


# MTSTS BURST DATA LATE TEST-MASTER XMITS S WORDS TO SLAVE 
WHILE SLAVE RECEIVES 5S AND TIMES OUT (DR11-W TO DR11-W ONLY) 


§ PAA OAEOEEEEEEESESEEESEEASEEDEEEDEEEEEEEEEDEREDEREDEEDEEEDEEEEE 
§ PRAREREEEEEEEEEEEEEEEEEDEEEEESEEEEESEEREDEEEEEEEEREEEDEEDDEEEEE 
sPROCEDURE: MASTER XMITS 5S WORDS TO SLAVE IN BURST MODE 

sSLAVE IS SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS 

sBY WCOF. AFTER S XFERS ARE DONE IN 

sSLAVE, TIMEOUT OCCURS, SINCE SLAVE WAITS FOR GO-AHEAD 

sFROM MASTER TO CONTINUE,BUT MASTER NEVER RESPONDS. IN 

sSLAVE: CHECK THAT S XFERS HAVE BEEN COMPLETED. 

§ PORES OEEEEEEEEEEEEEDEEEEEEDEOEEEDEEEEEEEEEEEEDEEEDEDEREEEEEDEE 
§ POROOEEOEESEEESEEESEEEEEEEEEESFOOEEEEEEEEEEEEEEEEEEEEEEEEEREDES 


MTSTS: 
18: JSR 
41%: CLR 
CMP 
BNE 
38%: MOV 
BIC 
BIS 
MOV 
408: BIT 
BEQ 
378: JSR 
3% 
JSR 
-32. 
MOV 
MOV 
MOV 
JSR 
MOV 
2s: DEC 
BNE 
MOV 
MOV 
BIC 
BIC 
MOV 
MOV 
MOV 
TYPE 
104000-3 
6R 
3%: CMP 
MOV 
BIC 
BIC 
MOV 
MOV 
BEQ 
MOV 


@CSR , TEMP 
@61T15, TEMP 
#2, TEMP 
TEMP , 8CSR 
#1000, @CSR 
40% 

RS, SETVEC 
RS,.LOBUF 
#10000 , TIME 
XMITMO, GWCR 
XMITMO+2,@BAR 
PC,.CPULO 
XMITMO+4,@CSR 
TIME 

2s 

CSR, $BDDAT 
@CSR, TEMP 


sNO INTR ALLOWED YET 
sIS ONLY READY SET 


sSET OSTATC IN SLAVE 
sTELLS SLAVE TO SETUP FOR XFERS 


sOSTATC HERE SAYS SLAVE 
s3IS READY TO DO XFERS 


sSET UP INTR RETURN — 


sRETURN TO 38 ON INT 
sGO LOAD hee DATA PTRN 


sSET UP CONTROL - IE, GO,AND CYCLE 
sWAIT ex INTR 

8 

sREAD CSR - SHOULD NEVER GET HERE 


sOISABLE IE 
sLD EXPECTED STAT C 
sSET UP CSR ADRS 


» ROY, IE 


sGO RESYNC ON ERROR 
sFIX STACK SINCE NO RTI 


sSET UP WCR ADRS 


SEQ 35 


IK3 
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SEQ 36 
WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-W TO OR11-W ONLY) 


1196 005772 104401 016062 TYPE »MSG3 
1197 005776 104005 104000-+5 
tics 006000 000400 BR 6% sGO RESYNC ON ER 
1200 
1201 
oe sERROR IN MASTER-WAIT FOR SLAVE STATUS 
1204 006002 000005 68: RESET 
reef 006004 012777 000010 173406 MOV #10,8CSR sTELL SLAVE WE HAVE AN ERROR 
1207 sTHIS SECTION MODIFIED FOR STATUS LINE SKEW. 
1208 006012 218: 
1209 006012 017737 173402 001450 MOV @CSR, SAVE s READ STATUS 
1210 006020 042737 170777 001450 BIC #170777, SAVE s CLEAR DON’T CARES 
tt 006026 001771 BEQ 21% s IF COMPANION NOT READY THEN LOOP 
1213 006030 017737 173364 001450 MOV @CSR , SAVE s RE-READ STATUS 
1214 006036 042737 170777 001450 BIC #170777, SAVE s CLEAR DON’T CARES 
1215 006044 022737 005000 001450 CMP #5000 , SAVE s CHECK FOR COMPANION OK 
1216 006052 001404 BEQ 24s s IF EQ THEN RESYNC 
1217 006054 23%: 
1218 006054 022737 004000 001450 CMP #4000 , SAVE s CHECK FOR COMPANION ERROR 
1219 006062 0013535 BNE 21% s IF NE THEN COMPANION STILL NOT READY 
1220 006064 24%: 
44 006064 104412 RSYNC sRSYNC ON ERROR 
1223 
1224 
1225 sNO ERROR IN MASTER-WAIT FOR SLAVE STATUS 
1227 sTHIS SECTION MODIFIED FOR STATUS LINE SKEW. 
1228 006066 98: 
006066 017737 173326 001450 MOV @CSR , SAVE s READ CSR 
1230 006074 042737 170777 001450 BIC #170777, SAVE s SAVE ‘STAT’ BITS 
1231 006102 001771 BEQ 9 s IF COMPANION NOT READY THEN LOOP 
1233 006104 017737 173310 001450 MOV @CSR, SAVE s RE-READ STATUS 
1234 006112 042737 170777 001450 BIC #170777, SAVE s CLEAR DON'T CARES 
1235 006120 022737 005000 001450 CMP #5000 , SAVE s CHECK FOR COMPANION OK 
134 006126 001410 BEQ 10% s IF SLAVE OK THEN CONTINUE 
1238 0061 022737 004000 001450 CMP #4000 , SAVE s ELSE CHECK FOR COMPANION ERROR 
1239 006136 0015535 BNE 9% s IF NE THEN COMPANION STILL NOT READY 
1241 006140 012777 000010 173252 MOV #10,8CSR s REPORT ERROR STATUS TO SLAVE 
1242 006146 104412 RSYNC s RSYNC ON ERROR 
1243 006150 10%: 
1244 006150 012777 000012 1753242 MOV #12,8CSR s TELL SLAVE ALL OK 
1245 006156 004737 011360 JSR PC .RSTVEC s GO RESTORE VECTOR 


CZORKBO DR11-W 


1268 006312 
1269 006314 


INTRPROC EXER 


Lo 


MACRO M1200 27-DEC-83 11:11 PAGE 80 
. SBTTL SLAVE TESTS 


s;SLAVE PROTOCOL INIT-TEST1 
§ LOSPASEEEREDEEESEEEEDEEERESEREDEEEEEESEAEDEEEEDEEEEEESEDEEEEDEES 
173230 SINIT1: ort allem 
TYPE 658 ssTYPE ASCIZ STRING 
BR 64% 33GET OVER THE ASCIZ 
ine -ASCIZ <CRLF>/CABLE IS NOT INSERTED - HALTING / 


18: JSR PC, CPUHI 
MOV @STACK , SP 
acsR 


CLR 
173132 BIT #1000, 8CSR sWHAT IS DSTATC 
BEQ 3% sIF CLR-BRANCH AND WAIT FOR MASTER 
173122 2%: 54 <a emees sIF NOT,WAIT FOR CLEAR 
38: JSR PC ,GOCMPN 
173106 4%; BIT #1000, 8CSR sHAS MASTER SET DSTATC IN SLAVE? 
BEQ 4% sNOT YET 


JMP SLiISTR 


SEQ 37 


M3 


CZDRKBO DOR11-W INTRPROC EXER MACRO M1200 27-DEC-83 11:11 PAGE 81 SEQ 38 
@ STST1 RECEIVE MASTER'S DBR DATA AND SEND IT BACK VIA DBR 
1271 -SBTTL «# STST1 RECEIVE MASTER'S DBR DATA AND SEND IT BACK VIA DBR 
1272 PeETIT Titi riiriiitittriitiititiiiiitiitiitititittTititiTTTiTTTiTTtTtty 
1273 2 SAMMAAEEAEREEEEEEEEAEEEEREEEEEEAEEAREEEEEEEAEEEEEESEDEEAEEESEEEEE 
1274 sNOW THIS COMPUTER BECOMES THE SLAVE AND ECHOS MASTER’ Ss OBR DATA 
1275 sSLAVE COMPUTER STARTS HERE FROM PROGRAM START 204 3 
1276 § §OORRO00O0066460000046660000006660006606600046666060066000000060000008 
1277 BS PPAAAAAEASEEALEEEEEEEESESEEEEEEEEEEEEEDEEEEEEEDEEOEEDEEEEREDEEE 
1278 
1279 
1280 006320 004737 013754 STST1: JSR PC ,GOCMPN sTELL MASTER WE ARE READY 
1281 006324 004737 013666 JSR PC ,WTCMPN sDATA AVAILABLE? 
1282 sWAIT ON IT 
1283 006330 017737 173066 001450 SLISTR: MOV @BOR , SAVE sGET DATA 
1284 006336 022737 177001 001450 CMP #177001, SAVE sTEST TERMINATOR? 
1285 006344 001412 BEQ as ;68R IF SO 
1286 006346 013777 001450 173046 MOV SAVE , 86D0R ;SEND IT BACK 
1287 006354 012737 001000 001444 MOV #1000, TIME sDELAY BEFORE CALLING MASTER 
1288 006362 005337 001444 S$: DEC TIME 
1289 006366 001375 BNE S$ 
1290 006370 000753 BR STST1 :GO LOOK FOR MORE DATA 
1291 006372 000240 4$: NOP 3 


CZDRKBO DR11-W INTRPROC EXER 
# TEST THAT SLAVE INTERRUPTS MASTER:F2 TO ATTN 


N3 


MACRO M1200 27-DEC-83 11:11 PAGE 82 


. SBTTL 


SINIT2: 


001444 
172720 2%: 


* TEST THAT SLAVE INTERRUPTS MASTER:F2 TO ATTN 


sSLAVE PROTOCOL INIT-TEST2 
j EPRARAAAEAAEEEEREDEEESERESERESEREEEOEEEEERESEEEEEEE SEEDER EEREEE 


acsR sCLR DSTATC OF MASTER 
PC, ,WTCMPN 

@csR, TEMP 

#6IT15, TEMP 

#4, TEMP sSET INTERRUPT MASTER 


@csR , TEMP 
#BIT15, TEMP 


ME 
#1000, 8CSR sWAIT DSTATC SLAVE TO CLEAR 


SEQ 39 


b4 
CZDRKBO DR11-w INTRPROC EXER MACRO M1200 27-DEC 83 il:11 PAGE 85 SEQ 40 
e STST2 RECEIVE MASTER'S ‘STAT BITS AND SEND IT BACK VIA FN 


1315 .SBTTL e¢ STST2 RECEIVE MASTER'S ‘STAT’ BITS AND SEND I! BACK VIA ‘FNC? BITS 
1316 WET ITIVII IIIT III III riiiiiiiiiiiiiiiiiiiititiii iii itt) 
1317 J ESCO EOEEEHEESOEEOSESOOESEOESEEESOOOEESEOEOEEEEEEEEESEEOOEEEOE 
1318 sRECEIVE ‘STAT’ BITS AND CONVERT TO ‘FNCT’ BITS AND WRITE TO CSR 
1319 § POSSE EOHESESEEEEOHEEESO EES OEEOEEEOEEOEEEEEOEEEEEEESESEEOOEEEE 
1320 J FOSS OEEEEE SOOO EEESESOEOOEOEEOEEEEOEEEEEEEEOEEEESESEEEOESEEEEEESE 
1321 006512 STSst2: 

1322 006512 004737 013666 4s: JSR PC ,WTCMPN sWAIT FOR MASTER 

1323 006516 012737 001000 001444 MOV #1000, TIME sOELAY 

1324 006524 005337 001444 S$: DEC TIME 

1325 006530 001375 BNE 58 

1326 006532 022777 177002 172662 2%: CMP #177002 ,aB0R sTEST TERMINATOR? 

1327 006540 001412 BEQ 38 :6R IF SO 

1328 006542 017737 172652 001450 MOV @CSR , SAVE sREAD THE CSR 

1329 006550 042737 170777 001450 BIC @170777,SAVE sSAVE ONLY THE STAT BITS 

1330 006556 113777 001451 172634 MOvB SAVE -1,@CSR sECHO WITH FNC? BITS 

1331 006564 000752 BR 4s sLOOK FOR NEXT ‘STAT’ CODE 

1332 006566 004737 013754 38: JSR PC .GOCMPN sTELtL MASTER TO CONTINUE 


1390 007102 
1391 007106 


104007 
000540 


013737 


104401 
104010 


OR11-w INTRPROC EXER 
BLOCK MODE WORD xFER TEST SLAVE RECEIVES 32 


¢ STSTS BLOCK MODE WORD XFER TEST-SLAVE RECEIVES 352 
WORDS FROM MASTER 


015776 


172374 


001420 
015776 


MACRO M1200 27-DEC-83 1li:il 


. SBTTL 


C4 
PAGE 84 


SEQ 41 


fF OCOCOEEEE EEE EEEEEEEEEEEEEEEEEEOOEEOEEOESESEEEEEODEOEEOEEEOEEEOE 

fF OCOOORECEOOEEEEEEEOEESESEEEEEESESEEEEEEEEESEREEEESEEEEESEOOEEOS 
sTHIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA — THE MASTER 
3 THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA E€ DAT 

sIF AN ERROR IS vo Sa by THE SLAVE TELLS THE MASTER. REPORTS THE 
sERROR, AND RESYNCS ON PROGRAM 

§ FOOOOOOELEOEEEEEESOEOEEEEEEEEEESEEESEEEEESEOEEEESOSEEEEOEEEEEEEE 
§ LOPOOOOOEOOEOEEEOEEOEEEEEEEEDEEESESEEEEESEOEEEEEESEEOOEOESEOEESS 


STST3: 
18: JSR 


MOV 
408: DEC 
BNE 
41%: CLR 
CMP 


BNE 
398: JSR 


MOV 
2s: DEC 


26 

CSR. SBODAT 
CSR, TEMP 
@8IT1S, TEMP 
#100, TEMP 


TEMP .@CSR 
@4312, SGODAT 
CSR, $BDADR 


04312, SGDOAT 


+ penal » $B00AT 


& 
CSR, $BDADR 
oMSG1 


sNO INTRS ALLOWED YET 


sONLY OSTATC AND READY SET 


3SET UP THE INTR RETURN ADRS 
sRETURN TO 3% ON DATO INTR 
3GO CLR ‘DOBUF’ 

300 32. LOCATIONS 

3SET UP A TIMER VALUE 

3SET UP WORD COUNT 

;SET UP BUFFER ADRS 

sALLOW THE INTR 


sFNCT 3E1 

sSET UP CONTROL - FNCT 3 E€ 1, IE €E GO 
3WAIT FOR INTR 

sUNTIL ZERO 

sREAD CSR - SHOULD NEVER GET HERE 
sOISABLE IE 


sLO EXPECTED - STAT A, RDY, 
sSET CSR ADRS 


TE €FNCTS El 


3GO RESYNC ON ER 
sFIX STACK SINCE NO RETURN 
sREAD STATUS 


sOISABLE IE 


sLO EXPECTED - STAT A, ROY, IE E FNCT SE 1 
sCORRECT? 


36R IF SO 
sSET UP CSR ADRS 


CZORKBO DR11-w INTRPROC 


WORDS FROM MASTER 


1434 007310 
1435 007314 


000502 
005037 
017737 
001407 
013737 


001407 


EXER 


001124 
172272 


001414 
015776 


001466 
001464 


001124 
172224 
000001 
001124 


001416 
015776 
001466 


001464 
177776 


015776 


D4 
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BR 10$ 
4%: CLR $GODAT 
001126 MOV QWCR, $SBODAT 
BEQ 5s 
001122 MOV WCR, $BDADR 
TYPE »MSG1 
104000+11 
BR 108 
001124 58: MOV RPRAM+2, $GODAT 
MOV AM,RO 
NEG RO 
ASL RO 
ADD RO, $GODAT 
001126 MOV SBAR , $BDDAT 
001126 BIC #6 ITOO, SBDDAT 
001126 CMP $GODAT , SBDDAT 
BEQ 63 
001122 MOV BAR , SBDADR 
Ty oMSG1 
104000+12 
BR 108 
68: MOV RPRAM+2,RO 
MOV AMR 
78: MOV @177776,R2 
CLR R3 
8s CMP R2,CRO)> 
BNE 8 
INC R1 
BEQ 138 
COM Re 
COM R3 
BNE 8s 
ASL R2 
INC RO 
ecc 78 
BR 83 
98: MOV -CRO), $BDDAT 
MOV RO, $BDADR 
MOV R2. SGDDAT 
TYPE eMSG1 


104000+13 


SEQ 42 


3GO RESYNC ON ERROR 
3LO EXPECTED wC 
sREAD WCR 

36R IF SO 

sSET UP WCR ADRS 


3GO RESYNC ON ERROR 
ey STARTING ADRS OF XFER 
5 

sGET ACTUAL @ 
sCONVERT TO WORD 
sADD TO BASE ADRS 
sREAD BAR ADRS 
sELIMINATE LSB 
sCORRECT? 

3s6R IF SO 

sSET UP BAR ADRS 


1GO RESYNC ON ERROR 

sGET BUFFER ADRS 

sGET WORD COUNT 

sGET 1ST DATA PTRN a lt ne 0) 
sR3 SAYS WHEN TO SHIFT PTRN 
sCOMPARE DATA IN DBUF TO EXPECTED 


ERROR 
sCOUNT THE WORD COUNT 


DONE 
sCONVERT PTRN TO FLOATING 1 
sTIME TO SHIFT? 
sBR IF NOT - GO CK NEXT 
sFLOAT PTRN LEFT 
sKEEP LSB SET 
sGO RESET —o PTRN 
sGO CHECK NEXT 
iGET BAD DATA 
sGET MEM ADRS OF DATA ER 
sLO EXPECTED DATA 


CZORKBO DR11-wW INTRPROC 


WORDS FROM MASTER 


000005 
017737 


EXER 


172074 
170777 


001000 


172036 
170777 


001000 


011360 


E4 
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001450 
001450 


001450 


108: 
158: 


168: 
24%: 


138 
14% 


318 


308: 


sERROR IN SLAVE-WAIT FOR MASTER STATUS 


RESET sTELL MASTER WE HAVE ERROR 

MOV @CSR, SAVE ;LOOP ON ERROR 

BIC #170777, SAVE s8UT WAIT FOR MASTER 

BEQ 24% 
CMP #1000, SAVE | 
BNE 15% 

RSYNC sRSYNC ON ERROR 


sNO ERROR IN SLAVE-WAIT FOR MASTER STATUS | 

MOVB @2,8CSR sTELL MASTER ALL OK 
sREAD CSR 

BIC +t a aan sSAVE ‘STAT’ BITS ONLY 


BEG :IS ER IN MASTER? 

CMP #1900, SAVE MASTER OK? | 

BEQ 308 | 

BR 14% 

RSYNC RSYNC ON ERROR 

JSR PC .RSTVEC GO RESTORE VECTOR 
| 


a a a a a a ee ne ed 


CZDORKBO DR11-W INTRPROC EXER 
WORDS FROM MASTER 


004737 


012737 
005337 
001375 
013737 


067737 
023727 
001406 


005077 
004737 
000137 
012777 
004737 


F 4 
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001444 
001442 


001442 
000256 


171720 


JSR 


SLBRD: MOV 
18: OEC 


2s: MOY 


sBURST MODE WORD XFER TEST DETERMINATION 


$F FSSSEESOOSSEASEEEEEEASEEEHESEEEEEEEEASESESEEESEEEEEEEEEEEEEEEEEEE 


eo IF BURST XFERS AND BURST DATA LATE ARE TO BE 


BF FHSSHHASHSHAHAESEHEEHSEESEEESEEEEEEAEEEEEEESEEEEEEEEAEEEEEEAEEEEEEEE 


PC ,WICMPN 
#1000, TIME 
TIME 


1% 
BOARD, TOTAL 


@BDR, TOTAL 
+ » 9256 


sWAIT FOR MASTER TO INDICATE 
sWHAT BOARD TYPE IT IS 
sWAIT ON MASTER 


sDETERMINE IF BOTH MASTER 
sAND SLAVE ARE OR11W'S 


300 BURST MODE 


sNO BURST MODE 


CZORKBO DR11-W INTRPROC 
# STST4 BURST MODE WORD 


1537 007764 


0006 
1541 010010 
1542 


1543 010016 
1544 010022 
1545 010024 
1546 010026 


104007 
000540 


013737 


104401 
104010 


000502 
005037 


G4 


EXER MACRO M1200 27-DEC-83 11:11 PAGE 87 
XFER TEST-SLAVE RECEIVES 32 


-SBTTL * STST4 BURST MODE WORD XFER TEST-SLAVE > mete 32 
. SBTTL WORDS FROM MASTER(OR11-W TO DR11-W ONLY 


SEQ 45 


001000 001444 


171660 


010000 001444 
171622 
171616 


: senteduanennaenenannesencnsessonecaeseaonanesenesdenneneseeel 

§ PORE OOSEEEEEEESEEEEEEEEEEEROEREEEEEEEEDEEEEEEEDEEESEEOEEEEEE 
sTHIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER 
sSAME AS TEST 3 EXCEPT BURST MODE 

§ FPORAOOEEEEEEEEEEEEEEEEEESEEESEEEEEEEEEEEEEEDEEEEEEEEEEEEEEEEEEE 

§ SPOCOSEEAOEEEEEEEREEEEEEEEEEAEEDEEEDEDEEEEEEEEEEEEEOEEEEEEEEEEEE 


STST4: 

18: JSR PC ,CPUHI 
MOV #1000, TIME 

403: DEC TIME 
BNE 40% 

41%: CLR acsR 
CMP #1200, 8CSR 
BNE 41% 

398: - RS, SETVEC 
= RS ,CLRBUF 
MOV #10000, TIME 
MOV AM, 


MOV SR, 
BIC @6IT15, TEMP 
BIS 2,TE 


2s: DEC 
BNE 


MOV 8CSR, TEMP 
BIC @61IT15, TEMP 
BIC #100, TEMP 
MOV TEMP ,@CSR 
MOV #302, $GDDAT 
MOV CSR, $BDADR 


TYPE »MSG2 
104000 +7 
BR 108 
38; CMP CSP )+¢,CSP)-« 
MOV @CSR,sBDDA 


BIC @6ITiS, TEMP 
BIC #100, TEMP 
MOV TEMP ,@CSR 
MOV #302, $GDDAT 


CMP $GODAT , SBDDAT 
BEQ 4s 
MOV CSR, $BDADR 
TYPE »MSG2 
104000+10 
BR 108 
4%: CLR $GDDAT 


sNO INTRS ALLOWED YET 


sONLY DSTATC AND READY SET 


sSET UP THE INTR RETURN ADRS 
ee TO 3¢ ON DATO INTR 


WORD T 
3SET UP BUFFER ADRS 
sALLOW THE INTR 
sFNCT 1 


sSET UP CONTROL - FNCT 1, IE €& GO 
sWAIT FOR INTR 


sUNTIL ZERO 
sREAD CSR - SHOULD NEVER GET HERE 
sOISABLE IE 
sLO EXPECTED - ROY, IF E FNCT 1 


sSET UP CSR ADRS 


sGO RESYNC ON ER 
sFIX STACK SINCE NO RETURN 
sREAD STATUS 


sOISABLE IE 


3LO EXPECTED - 
sCORRECT? 
368R IF SO 
sSET UP CSR ADRS 


ROY, IE E€ FNCT 1 


sGO RESYNC ON ERROR 
sLO EXPECTED wC 


CZORKBO DR11-W INTRPROC EXER 


017737 
001407 
013737 


171356 
001414 
016030 


001466 
177776 


001126 
001122 
001124 


016030 


001126 
001122 


001124 


98: MOV 


H4 
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WORDS FROM MASTER(DR11-W TO DR11-W ONLY) 


BWCR , $BDDAT 
BER, SBDADR 
»MSG2 

10% 


RPRAM+2, $GDDAT 


RPRAM,RO 


scooar, $BDDAT 


BAR, SBDADR 
»4SG2 

108% 
RPRAM+2,RO 
RPRAM,R1 
<a 


3 
-~ titi 


RO, $BDADR 
R2, $GODAT 


»MSG2 


sREAD WCR 
;8R IF SO 
sSET UP WCR ADRS 


sGO RESYNC ON ERROR 
+H STARTING ADRS OF XFER 


3 we 

3GET ACTUAL @ 
sCONVERT TO WORD 
sADD TO BASE ADRS 
sREAD BAR ADRS 
sELIMINATE LSB 
sCORRECT? 

3;8R IF SO 

iSET UP BAR ADRS 


sGO RESYNC ON ERROR 

sGET BUFFER ADRS 

sGET WORD COUNT 

sGET 1ST DATA PTRN (FLOATING 0) 
sR3 SAYS WHEN TO SHIFT PTRN 
sCOMPARE DATA IN DBUF TO EXPECTED 


sCOUNT THE WORD COUNT 


sTIME TO SH 


SET 
sGO RESET + ee PTRN 
sGO_ CHECK NEXT 
sGET BAD DATA 
sGET MEM ADRS OF DATA ER 
sLD EXPECTED DATA 


SEQ 46 


14 
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WORDS FROM MASTER(DR11-W TO DR11-W ONLY) 

cae sERROR IN SLAVE-WAIT FOR MASTER STATUS 

1591 

1592 010232 000005 108: RESET 

tty 010234 012777 000010 171156 MOV #10,8CSR sTELL MASTER WE HAVE AN ERROR 

1595 ; THIS SECTION MODIFIED FOR STATUS LINE SKEW. 

1596 010242 158: 

1597 010242 017737 171152 001450 MOV acsR , SAVE ; READ STATUS 

1598 010250 042737 170777 001450 BIC #170777, SAVE ; CLEAR DON'T CARES 

oH 010256 001771 BEQ 15% s IF COMPANION NOT READY THEN LOOP 

1601 010260 017737 171134 001450 MOV @CSR , SAVE s RE-READ STATUS 

1602 010266 042737 170777 001450 BIC #170777, SAVE s CLEAR DON'T CARES 

1603 010274 022737 005000 001450 CMP #5000 , SAVE s CHECK FOR COMPANION OK 

1604 010302 001404 BEQ 243 :; IF EQ@ THEN RESYNC 

1605 010304 16%: 

1606 010304 022737 004000 001450 CMP #4000 , SAVE s ELSE CHECK FOR COMPANION ERROR 

1607 010312 001555 BNE 15% :; IF NE THEN COMPANION STILL NOT READY 

1606 010314 24%: 

ered 010314 104412 RSYNC s RSYNC ON ERROR 

1611 

1612 

etry sNO ERROR IN SLAVE-WAIT FOR MASTER STATUS 

rtrd 010316 012777 000012 171074 13%: MOV #12,8CSR s TELL MASTER ALL OK 

1617 sTHIS SECTION MODIFIED FOR STATUS LINE SKEW. 

1618 010324 14%; 

1619 010324 017737 171070 001450 MOV @CSR , SAVE s READ CSR 

1620 010332 042737 170777 001450 BIC #170777, SAVE s SAVE ‘STAT’ BITS ONLY 

ered 010340 001771 BEQ 14% s IF COMPANION NOT READY THEN LOOP 

16235 010342 017737 171052 001450 MOV @CSR , SAVE s RE-READ STATUS 

1624 010350 042737 170777 001450 BIC #170777, SAVE s CLEAR DON'T CARES 

1625 010356 022737 005000 001450 CMP #5000 , SAVE 3 CHECK FOR COMPANION OK 

acer 010364 001405 BEQ 30% : IF MASTER OK THEN CONTINUE 

1628 010366 022737 004000 001450 CMP #4000 , SAVE s ELSE CHECK FOR COMPANION ERROR 

1629 010374 0013553 BNE 14% s IF NE THEN COMPANION STILL NOT READY 

1630 010376 318: 

1631 010376 104412 RSYNC s RSYNC ON ERROR 

1632 010400 30%; 

1633 010400 004737 011360 JSR PC .RSTVEC s GO RESTORE VECTOR 


am a re er ec ee 


CZORKBO DR11-wW INTRPROC EXER 
# STSTS BURST DATA LATE TEST-SLAVE RECEIVES 5S WORDS 


1691 010654 


012777 
017737 


170770 
001200 


011340 
011400 


J4 
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. SBTTL 


SEQ 48 


# STSTS BURST DATA LATE TEST-SLAVE RECEIVES 5S WORDS 
FROM MASTER AND TIMES OUT WHILE EXPECTING MORE 
(OR11-W TO OR11-W ONLY) 


§ FPPPMOAEROEEEEEEEREEEEEEERESESESESEEEEEEEEEEEEEEEEEEDEEEEEEEEEES 
§ SPPAROSEEEEEESSEEESEEEESEOEEEEEEEESOEESEEEEESEESEDEEEEERESEEEEES 
sSETS UP TO RECEIVE 10 WORDS IN BURST MODE FROM MASTER, 

sBUT MASTER WILL ONLY SEND 5 WORDS. 

sTIMEOUT OCCURS AND THE BUS IS RELEASED 

sTHEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA E DAT 

sIF AN ERROR IS DETECTED THE SLAVE TELLS THE MASTER, REPORTS THE 
sERROR, AND RESYNCS ON PROGRAM 
sIF ALL OK THEN THIS COMPUTER BECOMES MASTER AND GOES TO MTST1 

§ SOORAESEEESEEEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEOE 
§ I POOOOEEEEEEEEEEEEEEEEESEEOEEEEEEEEESEDEDEESEEEEEEDEEEOEHESESEES 


STSTS: 

18: JSR PC ,CPUHI 
MOV #1000, TIME 

403: DEC TIME 
BNE 40$ 

418: CLR ecsR 
CMP #1200,8CSR 
BNE 41% 

398: oe RS, SETVEC 
ms RS, CLRBUF 
MOV #40000 , TIME 
MOV RCVTMO, GWCR 
MOV RCVTMO+2,@BAR 
JSR »CPUL 
MOV @CSR TEMP 
BIC esITiS, TEMP 
BIS #2, TEMP 
MOV TEMP, ecse 
MOV RCVTMO+4, acsrR 
3s TIMEOUT 

258: OEC T 

25% 

6R 3% 

2s: MOV @csR , TEMP 
BIC @#6IT15, TEMP 
BIC #100, TEMP 
MOV TEMP .@CSR 

104000+17 
BR 108 

38: MOV @CSR, $BDDAT 
BIT e6IT?, sBODAT 
BEQ S¢ 
MOV TEMP , SGDDAT 

CSR, $BDADR 

TYPE a" 3 

104000+14 
BR 10% 

5%: MOV #6ITis. te 
MOV ecsr, $BDDAT 


sNO INTRS ALLOWED YET 
sDELAY ON MASTER 


sONLY DSTATC AND READY 


sSET UP THE INTR RETURN ADRS 
sRETURN TO 2¢ ON DATO INTR 
CLR ‘OBUF’ 


sALLOW THE INTR 


3sFNCT1 
3SET UP CONTROL: IE.FNCT1L E& GO 


sWAIT FOR MASTER TO SETUP; 

sTHEN SLAVE BUS WILL BE HELD FOR DURATION 

sOF BURST XFERS; TIMEOUT WILL OCCUR WITH SUBSEQUENT 
a . ©. BUS AND PROGRAM CONTINUATION 

? 


sOISABLE IE 
sREAD STATUS 


sTEST READY BIT 


3GO TO EIR 
sSAVE EIR 


ik oe 


CZORKBO 
COR11-W 


DR1il-wW INTRPROC EXER 


TO OR11-W ONLY) 


010766 
010770 


010776 


011052 


011070 


011076 
011076 


000005 
012777 


017737 
042737 
001771 


017737 
042737 
022737 
001404 


022737 
001353 


104412 


017737 


001000 
000400 
101000 


001420 
016062 


177773 
170456 
001124 


001414 
016062 


000010 


170416 
170777 


170400 
170777 
005000 


004000 


010000 
001444 


000012 


170316 
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001444 


170322 


001450 


IK4 


sTEST BURST DATA LATE BIT 


sGO RESYNC ON ERROR 


3LD EXPECTED wC 


sREAD WCR ‘ 
3; CORRECT? 

3;6R IF SO 

3SET UP WCR ADRS 


sGO RESYNC ON ERROR 


sERROR IN SLAVE-WAIT FOR MASTER STATUS 
sIF ERROR, INIT 


sTHIS SECTION MODIFIED FOR STATUS LINE SKEW. 
s READ STATUS 


CLEAR DON’T CARES 
IF COMPANION NOT READY THEN LOOP 


RE-READ STATUS 
CL 


IF EQ THEN RESYNC 


ELSE CHECK FOR COMPANION ERROR 
IF NE THEN COMPANION STILL NOT READY 


RSYNC ON ERROR 


sNO ERROR IN SLAVE-WAIT FOR MASTER STATUS 


sSLAVE HAS TIMED OUT LEAVING 
sREADY CLEAR. FNCT BITS TO DSTAT 
sBITS COMMUNICATION CAN BE 
sRESUMED BY SETTING READY.RESET 
sWILL SET READY. 


BIT BIT9, $BODAT 
BNE 4% 
BIC BITS, $BDDAT 
MOV #101000, $GODAT 
MOV CSR, $BDADR 
TYPE »MSG3 
104000 +22 
BR 108% 
4%: MOV #177773, $GODAT 
MOV QWCR , $BDDAT 
CMP $GDDAT , $SBDDAT 
BEQ 13% 
MOV WCR , $BDADR 
TYPE »MSG3 
104000+11 
10$ 
108: RESET 
MOV #10,8CSR 
158%: 
MOV acsR , SAVE 
BIC #170777, SAVE 
BEQ 158% 
MOV @CSR , SAVE 
BIC #170777, SAVE 
CMP #5000 , SAVE 
BEQ 24% 
168: 
CMP #4000 , SAVE 
BNE 158% 
24%: 
RSYNC 
13%: RESET 
MOV #10000, TIME 
11%; DEC TIME 
BNE 118 
MOV #12,8CSR 
14%: 


MOV 


@CSR ,, SAVE 


sTELL MASTER ALL OK 
sTHIS SECTION MODIFIED FOR STATUS LINE SKEW. 


READ CSR 


SEQ 49 


DR1i1l-wW INTRPROC EXER 


TO DR11-W ONLY) 


011104 
011112 


011114 
011122 
011130 
011136 


011140 
011146 


011172 
011174 


042737 
001771 


017737 
042737 
022737 
001405 


022737 
001353 


oS2 
012737 


170777 


170300 
170777 
005000 


001450 


001450 
001450 
001450 


001450 


001454 


L4 
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BIC #170777, SAVE 
BEQ 14$ 
MOV @CsR , SAVE 
BIC #170777, SAVE 
CMP #5000 , SAVE 
BEQ EOPT 
CMP #4000, SAVE 
BNE 14% 
RSYNC 
EOPT: 
JSR PC, RSTVEC 
SLVFIN: 
KSWR 
TST MSTER 
BNE EOPTA 
DEC ICOUNT 
BNE EOPTA 
MOV #144, ICOUNT 


; SAVE ‘STAT’ BITS ONLY 
; IF COMPANION NOT READY THEN LOOP 


RE-READ STATUS 

CLEAR DON'T CARES 

CHECK FOR COMPANION OK 

IF MASTER OK THEN END OF PASS 


s ELSE CHECK FOR COMPANION ERROR 
; IF NE THEN COMPANION STILL NOT READY 


3; RSYNC ON ERROR 
sGO RESTORE VECTOR 


3GO CHECK SWR 

;WERE WE STARTED AS MASTER? 

36R IF NOT 

sCOUNT TEST PASS 

368R IF NOT OUE FOR ‘END PASS’ MSG 
sRESET PASS COUNT TO i00 ITERATIONS 


M4 
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END OF PASS ROUTINE 
1771 -SBTTL END OF PASS ROUTINE 


§ EPPOREEEOAESEADEEEEEEEEEEEEEEEEDEEESEEEEEEEEEDEDEDREDEDEEEEEEEDES 
s*INCREMENT THE PASS NUMBER ( $PASS) 

s*TYPE “END PASS @XXXXX”" (WHERE XXXxXX IS A DECIMAL NUMBER) 

3*IF THERES A + GO TO IT 

3*IF THERE ISN'T JUMP TO EOPTA 


011202 SEOP: 

011202 000240 

011204 005037 001102 CLR $TSTNM 33ZERO THE TEST NUMBER 
011210 005237 001100 INC $PASS ss INCREMENT THE PASS NUMBER 
011214 042737 100000 001100 BIC #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
011222 005327 DEC CPC )+ 3 sLOOP? 

011224 000001 SEOPCT: .WORD 1 

011226 003022 BGT $DOAGN 33 YES 

011230 012757 MOV CPC)+,@(PC)+ ssRESTORE COUNTER 

011232 000001 SENOCT: .WORD 1 

011234 011224 sEOPCT 

011236 104401 0113035 TYPE » SENOMG ssTYPE “END PASS @” 

011242 013746 001100 MOV $PASS, -(SP) ssSAVE $PASS FOR TYPEOUT 
011246 104405 TYPOS 33GO TYPE--DECIMAL ASCII WITH SIGN 
011250 104401 011300 TYPE . SENULL ssTYPE A NULL CHARACTER 
011254 013700 000042 $GET42: MOV 8042 ,,RO + iGET MONITOR ADDRESS 
011260 001405 BEQ $DOAGN :sBRANCH IF NO MONITOR 
011262 000005 RESET +;sCLEAR THE WORLD 

011264 004710 SENDAD: JSR PC,CRO) 33GO TO MONITOR 

01 000240 NOP ssSAVE ROOM 

011270 000240 NOP 3sFOR 

011272 000240 NOP 3sACT11 

011274 $DOAGN: 

011274 000137 JMP @CPC)+ : sRETURN 

011276 011320 $RTNAD: .WORD EOPTA 

011300 377 377 OOO SENULL: .BYTE -1,-1,0 ssNULL CHARACTER STRING 
011303 015 012 105 $ENOMG: .ASCIZ 2183<1>/END PASS o/ 


011311 101 123 

011314 123 043 

011317 000 
1772 011320 012737 001000 001444 EOPTA: MOV #1000, TIME sSET UP A COUNT 
1773 011326 005337 001444 EOPTB: DEC TIME sSTALL FOR OTHER CPU TO BECOME SLAVE 
1774 011332 001375 BNE EOPTB sUNTIL TIME=0 


1775 011334 000137 002760 JMP MINIT1 sNOW BECOME MASTER 


OR11-W 


011372 
0113576 


011412 
011414 


INTRPROC 


004737 
012577 
012777 
000205 


013777 
005077 
004737 
000207 


EXER 


014050 
170054 
000200 


016236 


N4 
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170050 


170036 


. SBTTL 
.SBTTL PROGRAM SUBROUTINES 


5 PRASAAEEAEEEEEEESEEESEEEESAEEEEERESEEEEEEEEEEEEEEEREEDEREREEEES 
sTHIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT - 
sSETS UP THE INTERRUPT TO RETURN ON INTERRUPT 
3TO THE ADDRESS INDICATED ((RS)) BY THE CALL +2 
3 i PRAAREAEEAEEEEEEEEESERERESEEEDEEEEEEEEESEEEDEEEEE SEED DEERE DERES 
SETVEC: JSR PC, CPUHI sSET UP FOR NO INTERRUPT 
MOV CRS)+,@ORVCTO ;SET UP _INTR RETURN ADRS 
MOV #200 ,@ORVCT2 sKEEP PRIORITY LEVEL AT TOP ON INTR 
RTS RS sEXIT 


§ PPORSAAAEEEEESEESEEESEEESEEEEEEEEESEEEESEEEDEEEDAEEEEDEEEEEEEEE 
sTHIS ROUTINE RESTORES THE INTERRUPT VECTOR TO A HALT 
sAND RAISES THE PRIORITY LEVEL 
} S PPRRERASESELESEEEEESEEEEEEEEEEESESEREEEEEDSEEEEEEEEEEEEEDREEERES 
RSTVEC: MOV ORVCT2,@ORVCTO ;POINT VECTOR TO HALT 
CLR @ORVCT2 sSET UP HALT 
sRAISE PRIORITY LEVEL 


RTS PC sExIT 


§ SPPAAAEAEEAEAEEREAEEESERESALEREREEEDREEEEESEEEEEEEEEDEEDEEEEEEEDS 
sTHIS ROUTINE CLEARS THE ‘OBUF’' BEFORE A ‘DATI' XFER 

;THE @ OF LOCATIONS IN ‘DOBUF' TO BE CLEARED IS SPECIFIED BY 

3THE VALUE IN THE CALL +2 - WHEN ALL CLEARED THE RETURN IS TO 
sTHE CALL +4 

§ POSER EEEO644O6446664666066000600606066066000606000660000000000040486 


CLRBUF: MOV CRS)+,RO sGET THE LOC COUNT 


MOV @OBUF ,R1 sGET 1ST ADRS 
1%: CLR C(R1)+ ;CLR MEM LOC 

INC RO sCOUNT LOC 

BNE 1$ sUNTIL ALL DONE 

RTS RS sExIT 


SEQ S52 


DR11-w IN’TRPROC KER 
SUBROUTINES 


011416 
011420 


MACRO M1200 27 DEC B88 1Li:il 


§ FOCCOCOC OEE OOOEEEOEOOEOEEEEEEESEOOSESEOESEOESEOEREOOOOEEEEOEOOEE 
: THIS ROUTINE LOADS ‘OBUF’ WITH A FLOATING ZERO/ONE PATTERN 

;THE @ OF LOCATIONS IN DBUF' 
3 THE VALUE IN THE CALL +2 


LOBUF : 
18%: 
es: 


MOV 


b} 


(RS )+ RO 
o0BUF .R1 
@177776,R2 
RS 
R2,(R1)> 
RO 


. 


PAGE 92 


TO BE LOADED IS SPECIFIED Br 
- WHEN ALL LOADED THE RETURN IS TO CALL 


3sGET LOC COUNT 
sGET 1ST ADRS 


sSET UWP FLOATING ZERO PTRN 
sR3 SAYS WHEN TO SHIF’ PTRN 


sLOAD MEM WITH PTRN 


3s COUN 


T LOC 


36R IF MORE 


sExIT 
sCONVERT PTRN TO FLOATING 1 


sSMOULD WE SHIFT? 


30R IF NOT - THIS WILL BE A FLOATING 1 


sFLOAT ZERO LEFT 
3sKEEP LSB SET 


1GO RESET FLOATING PATRN 


3GO LOAD NEXT PATRN 


«4 


SEG 5? 


CZORKBO DR11-w INTRPROC EXER 
SYSMAC ROUT 


1634 
1835 
18%6 


INES 


001157 
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lp? 


PAGE 95 


-SBTTL SYSMAC ROUTINES 


-SBTTL TYPE ROUTINE 


SEQ 54 


BF SSSSHHSSSSSESSSSHESSSEEESHSSHESESSSEEEHESESESEEEEEEEEESEEEEEEEEEE 


s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


s¢THE ROUTINE WILL INSERT A NUMBER 


s@NOTE1: 


s@NOTE2: 
seNOTES: 
34 
s*@CALL: 
341) en A TRAP INSTRUCTION 
36 TYPE »MESADR 
OR 
3¢ TYPE 
3¢ MESADR 
3° 
STYPE: TSTB STPFLG 
BPL 18% 
HALT 
BR 38 
18%: MOV RO, -(SP) 
MOV @2(SP),RO 
28: MOvVB CRO)+, -C SP) 
BNE 43 
TST CSP )e 
608: MOV (SP )+,RO 
38: ADO @2,(SP) 
RTI 
4%: CMPB @HT CSP) 
BEQ 
ChPsB @CRLF .( SP) 
BNE 5 
TsT CSP de 
TYPE 
sCRLF 
CLRB SCHARCNT 
6R 23 
58: JSR PC, $TYPEC 
68: ChPB OF ILLC,.CSP)> 
BNE 28 
MOV 6NULL , -( SP) 
78: OECB 1(SP) 
BLT 68 
JSR PC, $TYPEC 
DECB SCHARCNT 
BR 78 
sHORIZONTAL TAB PROCESSOR 
6s: Ove @ CSP) 
98 JSR PC, ¢TYPEC 
6BITB zene 


NULL CHARACTERS AFTER A LINE FEED. 


OF 
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


33IS THERE A TERMINAL? 
336R IF YES 

s3sHALT HERE IF NO TERMINAL 

3 sLEAVE 

33sSAVE RO 

33GET ADORESS OF ASCIZ STRING 

33sPUSH CHARACTER TO BE TYPED ONTO STACK 
336R IF IT ISN'T THE TERMINATOR 

saI —— POP IT OFF THE STACK 


3 sRETURN 
ssBRANCH IF <HT> 


ssBRANCH IF NOT <CRLF> 


33POP <CR><LF> Saqusy 
+ TYPE A CR AND L 


ssCLEAR CHARACTER COUNT 
33GET NEXT CHARACTER 
33GO TYPE THIS CHARACTER 
vis IT TIME ll Ber CHARS .? 
sIF NO GO GET T CHAR, 
1 1GET © OF FILLER CHARS. NEEDED 
3sAND THE NULL CHAR. 
33:00ES A NAL NEED TO BE TYPED? 
3:6R IF we — THE NULL OFF OF STACK 
33GO TYPE A 
33:00 NOT COUNT” is A COUNT 
+ LOOP 


ssREPLACE TAB WITH SPACE 
ssTYPE A SPACE 

13QRANCH IF NOT AT 

3s TAB STOP 


CZORKBO DOR11-W 
TYPE ROUTINE 


INTRPROC EXER 


167310 


167304 
177600 
000023 


167264 


167260 
177600 
000021 


167224 
000002 


STYPEC: 


1018; 


1028: 
108: 


is; 


NCB 
SCHARCNT : . WORD 


STYPEX: RTS 


DS 
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2(SP), as TPB 
a (SP) 
SCHARCNT 
$TYPEX 

@LF ,2°SP) 
sTYPEX 

CPC )o 


PC 


33POP SPACE OFF STACK 
33GET NEXT CHARACTER 


s3CHAR IN KYBD BUFFER? 
336R IF NOT 

33GET CHAR 

ssSTRIP EXTRANEOUS BITS 
33WAS CHAR XOFF 

336R IF NOT 


ssWAIT FOR CHAR 
33GET CHAR 
ssSTRIP IT 
3sWAS IT XON? 
336R IF NOT 


ssF IX STACK 


ssWAIT UNTIL PRINTER IS READY 
33IS CHARACTER A RANDOM XON? 


s3BRANCH IF YES 


SEQ 55 


3sLOAD CHAR TO BE TYPED INTO DATA REG. 


33IS CHARACTER A CARRIAGE RETURN? 


3 sB8RANCH IF 


NO 
33s YES--CLEAR CHARACTER COUNT 


3 sEXIT 


3sIS CHARACTER A LINE FEED? 
IF YES 


3 sBRANCH 
ssCOUNT THE CHARACTER 


s sCHARACTER COUNT STORAGE 


—- - 4 


CZDORKBO DR11-wW INTRPROC EXER 


BINARY TO OCTAL (ASCII) AND TYPE 


1638 


012207 
000002 


012206 
177770 


012205 


012205 
012207 
012204 


> 
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SEQ 56 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


§ [OPMOOOEOEREEEEOEEAEEEOEEEEEEEEEEEEEEEEEREEEEEEEEEEOEEEEEEEEEEES 

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s@OCTAL CASCII) NUMBER AND TYPE IT 

:¢$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


s@CALL: 

3% MOV 
3° TYPOS 
34 BYTE 
3¢ BYTE 


NUM, -(SP) 


ssNUMBER TO BE TYPED 
33;CALL FOR TYPEOUT 
ssN*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
ssM=1 OR O 
331*TYPE LEADING ZEROS 
3:0=SUPPRESS LEADING ZEROS 


36 
s@$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s@$TYPOS OR $TYPOC 


NUM, -(SP) 


ssNUMBER TO BE TYPED 
ssCALL FOR TYPEOUT 


3¢ 
s@$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


s@CALL: 
3¢ MOV 
36 TYPON 
3s@CALL: 
3¢ MOV 
3¢ TYPOC 
sTYPOS: MOV 
Move 
MOVE 
ADO 
BR 
sTYPOC: MOVB 
MOvB 
STYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADO 
MOvB 
MOvB 
MOV 
CLR 
18: ROL 
BR 
2s: ROL 
ROL 
ROL 
MOV 
38: ROL 
DECB 
BPL 
BIC 
BNE 
TST 
BEQ 
4t: INC 


NUM, -(SP) 


@C SP), -CSP) 
1(SP), SOF ILL 


@177770,R3 
as 


R4 
S$ 
RS 


ssNUMBER TO BE TYPED 
ssCALL FOR TYPEOUT 


»sPICKUP THE MODE 

33sLOAD ZERO FILL SWITCH 
ssNUMBER OF DIGITS TO TYPE 
ssADJUST RETURN ADDRESS 


ssSET THE ZERO FILL SWITCH 
ssSET FOR SIxX(6) DIGITS 
3sSET THE ITERATION COUNT 
$3 


33sGET THE NUMBER OF DIGITS TO TYPE 


ssSUBTRACT IT FOR MAX. ALLOWED 
ssSAVE IT FOR USE 
3sGET THE ZERO FILL SWITCH 


OuT WORD 
ssROTATE MSB INTO “C” 
33GO SB 
ssFORM THIS DIGIT 


ssGET LSB OF THIS DIGIT 
ssTYPE THIS DIGIT? 
OR IF 


ssSUPPRESS THIS 0? 
336R IF YES 
3100N'T SUPPRESS ANYMORE 0'S 


CZORKBO DR11-W INTRPROC 


BINARY TO OCTAL 


CASCIT) 


EXER 


AND TYPE 


FS 
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BIS 0'0,R3 

S$: BIS eo =4RS 
MOVB R3,8$% 
TYPE 8 

78; DECB sOCNT 
BGT es 
BLT 6% 
INC R4 
BR 

6%: MOV (SP )+,R5S 
MOV (SP )+,R4 
MOV (SP)+,R3 

000004 MOV 2(SP),4(SP) 

MOV (SP )+,¢ ) 
RTI 

88: BYTE O 
BYTE 0 

SOCNT: .BYTE 0 

SOFILL: .BYTE 0 

SOMODE: .WORD O 


SEQ 57 


ssMAKE THIS DIGIT ASCII 
ssMAKE ASCII IF NOT ALREADY 
33SAVE FOR TYPING 

33GO TYPE THIS DIGIT 


1 INSURE LAST DIGIT ISN’T A BLANK 
33GO 00 a DIGIT 


R3 
ssSET THE STACK FOR RETURNING 


3: sRETURN 

ssSTORAGE FOR ASCII DIGIT 

33 TERMINATOR FOR TYPE ROUTINE 
ssOCTAL DIGIT COUNTER 

33ZERO FILL SWITCH 

ssNUMBER OF DIGITS TO TYPE 


CZDORKBO DR11-wW INTRPROC EXER 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


GS 
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SEQ 58 


1840 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


PPT rrrrrrrirrrrrriiiiiiriiiriiitiitiTiy titty) 
s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
s@NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
s@REPLACED WITH SPACES. 


3@CALL: 


012210 


012312 116663 000001 177777 
005720 
012334 020027 000010 


012350 105726 88: 
0123554 116663 177777 177776 


012370 012602 
0123572 012601 


NUM, -(SP) 


6 
1CSP), -1€R3) 
@'0,R2 


9 
-1(SP), -2(R3) 
R3) 


(SP )+,RS 
(SP)+,R3 
(SP )+,R2 
SP)+,R1 


V“_ 


ssPUT THE BINARY NUMBER ON THE STACK 
33GO TO THE ROUTINE 


ZERO THE CONST 
33sSETUP THE OUTPUT PO 
33SET THE FIRST CHARACTER TO A BLANK 
+ CLEAR THE BCD NUMBER 
33GET THE CONSTANT 
ssFORM THIS BCD DIGIT 
33BR IF OONE 
ss INCREASE THE BCD DIGIT BY 1 


33AD0 BACK THE CONSTANT 

1 SCHECK IF 6BCO ar i 

aaF HROUGH IF 

33STILL DOING LEADING 0'S? 
33:6R IF YES 


NO 
33s VES--SET THE SIGN 
ssMAKE THE BCD DIGIT ASCII 
ssMAKE IT A SPACE IF NOT ALREADY A DIGIT 
ssPUT THIS CHARACTER IN THE OUTPUT BUFFER 
INCREMENT ING 


JUST 
ssCHECK THE T 


ABLE INDEX 
33GO DO THE NEXT DIGIT 
33GO TO EXIT 
33GET THE LSO 


33GO CHANGE TO ASCII 
ssWAS THE LSO THE FIRST NON-ZERO? 


33:88 IF NO 
+1YES--SET THE SIGN FOR TYPING 
33SET THE TERMINATOR 
33POP STACK INTO RS 
33POP STACK INTO RS 
3sPOP STACK INTO R2 
33POP STACK INTO R1 


CZDRKBO DR1i-wW INTRPROC EXER 


CONVERT BINARY 


012374 
012376 


TO DECIMAL AND TYPE ROUTINE 


012424 
000002 000004 


HS 
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MOV (SP )+,RO 3:POP STACK INTO RO 
TYPE » $S0OBLK 3sNOW TYPE THE NUMBER 
MOV 2(SP),4(SP) 3sADJUST THE STACK 
MOV (SP )+, (SP) 

RTI ; sRETURN TO USER 
10000. 

1000. 

100. 

10. 

.BLKW 4 


ee = 


cel taal icalaii 


CZDRKBO DR11-wW INTRPROC EXER 
ERROR HANDLER ROUTINE 


1642 


012560 


[5 
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166466 
166456 


001116 
001114 
166416 


-SBTTL ERROR HANOLER ROUTINE 


{ SOSOOOREESEOEEEEEEEEESEEEEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEE DEEDES 
s¢THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


s@SAVE THE ERROR ITEM NUMBER AND 


s#AND GO TO SWRCK ON ERROR 


3¢THE SWITCH OPTIONS 


3¢SWi51 
3*SWi3=1 
34SW1021 
3*CALL 
ge ERROR 
SERROR: 
CKSWR 
CKSWR 
7%: INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 
18: INC 
MOV 
SUB 
Move 
BIT 
BNE 
JSR 
TYPE 
208: 
2s: TST 
BPL 
HALT 
CKSWR 
38; 
RTI 


HALT ON E 


THE ADDRESS OF THE ERROR CALL 


PROVIDED BY THIS ROUTINE ARE: 
RROR 


INHIBIT ERROR TYPEOUTS 


BELL ON ERROR 


N ssERROR=EMT AND N*ERROR ITEM NUMBER 


s3TEST FOR CHANGE IN SOFT-SwWR 
CHANGE 


sGO LOOK FOR SUR 


sERFLG 
7 


$ 
$TSTNM, BDISPLAY 
ee 


33SET THE ERROR FLAG 

3300N‘T LET THE FLAG GO TO ZERO 
ssOISPLAY TEST NUMBER AND ERROR FLAG 
3 sBELL ERROR? 

33NO - SKIP 


ssRING BELL 

3;COUNT THE NUMBER OF ERRORS 

33GET ADORESS OF ERROR INSTRUCTION 
33sSTRIP AND SAVE THE ERROR ITEM CODE 
33SKIP TYPEOUT IF SET 


33SKIP TYPEOUTS 
33GO TO USER ERROR ROUTINE 


a3 T ON ERROR! 
33T&ST FOR CHANGE IN SOFT-SWR 


3 sRETURN 


nia ee ee 
4 T ERROR 


sGO UPDATE SOFTWARE SWR IF ‘CNTRL/G’ 
§ § OOOOO0600600600606060060060066000606001600600000000600000000000008 
ERROR 


8 
RTS 


PC, SERRTYP 
PC 


3GO TYPE 
3GO LOOK FOR SWR CHANGE 
sRETURN TO ERROR HANDLER 


SEQ 60 


eT TT 


CZORKBO DR11-wW INTRPROC EXER 
ERROR MESSAGE TYPEOUT ROUTINE 


1651 


001165 


001114 


001116 


001170 
012632 


001165 
012650 


001165 


001165 


012710 
040 


J5 
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SEQ 61 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


§ SPOOAORAEASEEEEEEEEEEOEEEEEEEEOEEEEEEEOEEEEEEEEEEEEEEEEEEEEEEEEE 

s#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 
s*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ( SERRTB), 
s@AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SEPRTYP: 


18: 


2s: 
38; 


78; 


TY . $CRLF 

MOV RO, -(SP) 
CLR RO 

BISB Ges ITEMB,RO 
BNE is 

MOV SERRPC, -( SP) 
TYPOC 

BR 6¢ 

DEC RO 

ASL RO 

ASL RO 

ASL RO 

ADD @sERRTB,RO 
MOV (RO)+,28 
BEQ 38 

TYPE 

. WORD 

TYPE . $CRLF 

MOV CRO)>+ 48 
BEQ S$ 

TYPE 

-WORD 0 

TYPE . $CRLF 

MOV CRO),RO 
BNE 78 

MOV (SP )+,RO 
TYPE . $CRLF 

RTS 

MOV @CRO)+,-C( SP) 
TyPOCc 

TST CRO) 

BEQ 6% 

TYPE 88 

BR 78 

-ASCIZ / / 


33; "CARRIAGE RETURN” & “LINE FEED” 
33sSAVE RO 
3sPICKUP THE ITEM INDEX 


s3IF ITEM NUMBER IS ZERO, JUST 
s3sTYPE THE PC OF THE ERROR 

33SAVE SERRPC FOR TYPEOUT 

ssERROR ADDRESS 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
33GET OUT 

ssADJUST THE INDEX SO THAT IT WILL 
83 WORK FOR THE ERROR TABLE 


s3FORM TABLE POINTER 

ssPICKUP “ERROR MESSAGE” POINTER 

33SKIP TYPEOUT IF NO POINTER 

ssTYPE THE “ERROR MESSAGE” 

33 "ERROR MESSAGE” POINTER GOES HERE 

33 "CARRIAGE RETURN” € “LINE FEED” 
“DATA HEADER” POINTER 


t*] 
tpi THE “DATA HEADER” 
33:"DATA HEADER” POINTER GOES HERE 
s3s“CARRIAGE RETURN” € “LINE FEED” 
s3sPICKUP “DATA TABLE” POINTER 
33GO TYPE THE DATA 


3sRESTORE RO 

33"CARRIAGE RETURN” € "LINE FEED” 
3s sRETURN 

at ye | wD ae + FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
33I1S THERE ANOTHER NUMBER? 


336R IF NO 
TI TYPE TWOC2) SPACES 
3 sLOOP 
ssTWOC2) SPACES 


CZORKBO OR11-W INTRPROC EXER 


SCOPE HANDLER ROUTINE 
1853 


012714 

012714 104407 
012716 104407 
012720 000416 


012722 013746 


166142 sOVER: MOV 


KS 
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-SBTTL SCOPE HANDLER ROUTINE 


3 FE PSHAOAEHSHASAEASEAESEEASESEDEESEAEEEEOEEREEESEEEEEEEEEEEEEEEEEE 


s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


SEQ 62 


s#AND LOAD THE TEST NUMBER(CSTSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 


s#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:06> 


3*CALL 
34 SCOPE : sSCOPE=IOT 
$SCOPE : 
CKSWR 3sTEST FOR CHANGE IN SOFT-SWR 
CKSWR 3GO LOOK FOR SWR CHANGE 
s@@@GOSTART OF wy FOR THE XOR TESTERO@OGe 
$xTSTR: BR 33IF RUNNING ON THE “XOR” TESTER CHANGE 
3sTHIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV BOERRVEC.-(SP) 3;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV @5% , B@ERRVEC 33SET FOR TIMEOUT 
TST BOL 77060 ssTIME OUT ON XOR? 
MOV (SP)+,@@ERRVEC ;;RESTORE THE ERROR VECTOR 
BR $SVLAD 3G0 TO ne NEXT TEST 
5$: CMP CSP )+,CSP)-+ 3sCLEAR THE STACK AFTER A TIME OUT 


MOV CSP +, Q@ERRVEC 90 GaP on THE ERROR VECT 
: BR sOVER LOOP ON THE PRESENT TEST 
6%: ;@@@@@END OF CODE FOR THE xor’ ESTEROOOG@ 
STSTNM —— TEST NUMBERS 
MOV (SP), $LPADR SAVE SCOPE LOOP ADDRESS 
CLRB SERFLG + sZERO THE ERROR FLAG 
$TSTNM, GDISPLAY t DISPLAY TEST NUMBER 
MOV SLPADR ,( SP) ssFUDGE RETURN ADDRESS 
RTI ssFIXES PS 


CZORKBO DR11-wW INTRPROC 


TTY INPUT ROUTINE 


1655 


013106 
013112 


013116 


i 
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-SBTTL TTY INPUT ROUTINE 


3 SHOROHASEEASESASHEAEEEEEEEEAEEEEEEHSEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


-ENABL LSB 


§ SPOROREREEEEESESEREREEEEDEEDEOEEDEEEEESEAEEEEEEEEEEEEEEEEEEEEEES 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND W 
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
s@WHEN OPERATING IN TTY FLAG MODE. 

000176 001140 ‘sCKSWR: a @SWREG , SWR isIS THE re SELECTED? 


15% 336R 
166122 TSTs asTKS 3sCHAR THERE? 
BPL 15% 3sIF NO, DON'T WAIT AROUND 
166116 MOVB @sTKB, -(SP) s3SAVE THE 
177600 BIC #tC177,(SP) s3sSTRIP-OFF THE ASCII 
000007 CMP @7,CSP)+ 33IS IT A CONTROL G? 
BNE 15% 33NO, RETURN TO USER 
001134 000001 CMPB SAUTOB , 01 3sARE WE RUNNING IN AUTO-MODE? 
BEQ 158% 33;BRANCH IF YES 
013543 TYPE » $CNTLG 33sECHO THE CONTROL-G (tG) 
013550 $GTSWR: TYPE . $MSUR 33s TYPE CURRENT CONTENTS 
000176 MOV SWREG, -( SP) +1 SAVE SWREG FOR TYPEOUT 
TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
013561 ' TYPE . SMNEW 33sPROMPT FOR NEW SWR 
19%: CLR -(SP) 3sCLEAR COUNTER 
CLR -(SP) 33THE NEW SUR 
166040 7$: TSTs @sTKS 3sCHAR THERE? 
BPL 7$ 33IF NOT TRY AGAIN 
1 MOvVB Os TKB, -C(SP) 33PICK UP CHAR 
177600 BIC #*C177,(SP) 33sMAKE IT 7-BIT ASCII 
000025 98: CMP (SP), #25 33IS IT A CONTROL-U? 
BNE 10% 3 ;BRANCH IF T 
013536 . TYPE » $CNTLU eves. ECHO CONTROL -U (tU) 
208: ADO @6,SP sIGNORE PREVIOUS INPUT 
BR 19% + iLET’ S TRY IT AGAIN 
000015 108: CMP (SP),@15 33I1S IT A <CR>? 
BNE 168% 3 :BRANCH IF NO 
000004 TST- 4(SP) ssVYES, IS IT THE FIRST CHAR? 
BEQ 118 336R IF YES 
000002 165760 MOV 2(SP),@SWR 33SAVE NEW SWR 
000006 118; ADO ° 3sCLEAR UP STACK 
001165 148; TYPE . $CRLF 3sECHO <CR> AND <LF> 
001135 000001 CMPB SINTAG, #1 33sRE-ENABLE TTY KBD INTERRUPTS? 
BNE 15% 3s@RANCH IF NOT 
000100 165736 - a #100, 88TKS fe~ TTY KBD INTERRUPTS 
: a3 
011630 16%: JSR PC, $TYPEC 33ECHO CHAR 
CMP (SP), @60 33CHAR < 0? 
BLT 18% ssBRANCH IF YES 


SEQ 63 


CZORKBO DR11-W 


INTRPROC 


TTY INPUT ROUTINE 


010346 
012703 
022703 


EXER 


000002 
177776 
001164 


013526 
013536 


MS 
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SEQ 64 
CMP (SP), 067 3;CHAR >» 7? 
BGT 18$ ;sBRANCH IF YES 
BIC #60,(SP)>+ ssSTRIP-OFF ASCII 
TST 2( SP) 33I1S THIS THE FIRST CHAR 
BEQ 178% ;sBRANCH IF YES 
ASL (SP) 33NO, SHIFT PRESENT 
ASL (SP) 33 CHAR OVER TO MAKE 
ASL (SP) 83 ROOM FOR NEW ONE. 
17%: INC 2(SP) 33KEEP COUNT OF 
BIS -2(SP),(SP) 33SET IN NEW CHAR 
BR 7$ 33;GET THE NEXT ONE 
18%: TYPE » $QUES ss TYPE ?<CR><LF> 
BR 20% s;SIMULATE CONTROL -U 
-OSABL LSB 
BF SSASSHHSASSESESSSASEEEEAEEEEASESESHEEEEEEEOOSEEEEEEESEEEAEEEEEEEE 
ot eg ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
34 : 
34 ROCHR s:INPUT A SINGLE CHARACTER FROM THE TTY 
3¢ RETURN HERE ;;CHARACTER IS ON THE STACK 
Ty s3WITH PARITY BIT STRIPPED OFF 
3 
$ROCHR: MOV CSP), -CSP) 33PUSH DOWN THE PC 
Vv 4(SP),2¢SP) 33SAVE THE PS 
18: TSTB asTKS 33sWAIT FOR 
BPL 1% 33A CHARACTER 
MOvB Os TKB,4(SP) 33sREAD THE TTY 
BIC @tC<177>,4(SP) 3;;GET RID OF JUNK IF ANY 
CMP 4(SP), 023 33IS IT A CONTROL-S? 
BNE 3% 33;BRANCH IF NO 
2s: TSTe esiKs ssWAIT FOR A CHARACTER 
BPL 2s 33;LOOP UNTIL ITS THERE 
MOvVB @sTKB, -(SP) 33GET CHARACTER 
BIC @*C177,(SP) ssMAKE IT 7-BIT ASCII 
CMP (SP)+,@21 s3IS IT A CONTROL -Q? 
BNE 2s 33IF NOT DISCARD IT 
BR 1% 33YES, RESUME 
3%: CMP 4(SP),@$X0ON 31S IT A RANDOM XON? ;RANOO1 
BEQ 1$ 3;BRANCH IF YES sRANOOL 
CMP 4(SP),@140 33IS IT UPPER CASE? 
BLT 4$ 33;BRANCH IF YES 
CMP 4(SP),0175 1s IT A SPECIAL CHAR? 
BGT 4$ IF Yes 
BIC @40,4(SP) 1 MAKE IT UPPER CASE 
4%: RTI 33GO BACK TO USER 
5 ponenesnnscseseanbnnnseneentenbiacaiateconensenanneanennnennete 
ag ROUTINE WILL INPUT A STRING FROM THE TTY 
34 8 
34 ROLIN ssINPUT A STRING FROM THE TTY 
6 RETURN HERE ssADDRESS OF FIRST CHARACTER WILL " ON THE STACK 
34 +1 TERMINATOR WILL BE A BYTE OF ALL O'S 
$ROLIN: MOV R3,-CSP) 33SAVE R3 
1%: MOV @sTTYIN,RS 33GET ADDRESS 
2s: CMP @STTYINeS. .R3S ; BUFFER FULL? 


CZORKBO DR11-W INTRPROC 


TTY INPUT ROUTINE 


101405 


EXER 


000177 
001164 
013524 
013524 
000015 


177777 
001166 


000004 
013526 
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10$: 
4$: 
3$: 


9$: 


$TTYIN: . 


SCNTLU: 
$CNTLG: 
$MSWR: 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


4$ 


(SP )+,CR3) 
+ haa 


$ 

. $QUES 
1$ 
(R3),98 
.9$ 
#15, (R3)+ 
es 


@oo 


NS 


/*U/<15><12> 
4t*G/<15><12> 


<15><12>/SWR = / 


4 NEW = / 


3;8R IF YES 

33GO READ ONE CHARACTER FROM THE TTY 
3;GET CHARACTER 

33IS IT A RUBOUT 

33;SKIP IF NOT 

ssTYPE A ‘?' 

3;CLEAR THE BUFFER AND LOOP 

:sECHO THE CHARACTER 


3:CHECK FOR RETURN 

3:LOOP IF NOT RETURN 

3;CLEAR RETURN (THE 15) 

33TYPE A LINE FEED 

ssRESTORE R3 

::;ADJUST THE STACK AND PUT ADDRESS OF THE 
33 FIRST ASCII CHARACTER ON IT 


3 sRETURN 

ssSTORAGE FOR ASCII CHAR. TO TYPE 
33 TERMINATOR 

3;RESERVE 8 BYTES FOR TTY INPUT 
3sCONTROL “U” 


;sCONTROL “G” 


SEQ 65 


A 


CZDORXBO OR11 -w 
TTy 


185° 
1858 


013572 
013574 


INTRPROC EXER 


TNPUT ROUTINE 


013640 


BF 
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-EVEN 


-SBTTL TRAP DECODER 


SEQ 66 


BF SSOSHASSSSSHSSHSSSSESSEESHOSEEOESHEEESEEEHSEEEEEHEESEHEEEEEEEEEEE 


s¢THIS ROUTINE WILL aoe THE LOWER BYTE OF THE “TRAP” INSTRUCTION 


s¢AND USE IT TO INDEX 
1¢OF THE DESIRED ROUTINE. 
3¢GO TO THAT ROUTINE. 


STRAP: MOV RO, -( SP) 
MOV 2¢$P),RO 
TST -(RO) 
MOVB C(RO),RO 
CMP @sTERM,RO 
BGT 6 
HALT 
BR . -2 
ASL RO 
MOV $TRPAD(CRO),RO 
RTS RO 


HE TRAP TABLE FOR THE STARTING ADDRESS 
THEN USING THE ADDRESS OBTAINED IT WILL 


uP BY 2 
33GET RIGHT BYTE OF TRAP 
3sCHECK FOR OUT OF BOUNDS 
336R IF OK 
pen OF BOUNDS 


+ POSITION FOR INVEXING 
ss INDEX TO TABLE 
33GO TO ROUTINE 


ssTHIS IS USE TO HANDLE THE “GETPRI” MACRO 


(SP), -CSP) 


STRAP2: MOV 
MOV 4(SP),2(¢SP) 


RTI 
-SBTTL TRAP TABLE 


ssMOVE THE PC DOWN 
s3sMOVE THE PSW DOWN 
ssRESTORE THE PSwW 


s¢THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


:¢BY THE “TRAP” INSTRUCTION. 


F 
3 -—*s*eee8 
STRPAD: s TRAPS 
3sCALL TYPE 
3 sCALL*TYPOC 
ssCALL*TYPOS 
ssCALL*TYPON 
ssCALLeTYPDS 


ss CALL *GTSWUR 
3s sCALL*CKSWR 
3 sCALL *ROCHR 
ssCALL*ROLIN 


RESYNC ;;CALL RSYNC 


sTERM=. -¢TRPAD 


ao ee 


TRAP + 1( 104401 ) 
TRAP +2( 104402 ) 
TRAP + 3( 104403) 
TRAP +4( 104404 ) 
TRAP +5S( 104405) 


TRAP +6( 104406 ) 


TRAP + 7( 104407) 

TRAP + 10( 104410) 
TRAP +11( 104411) 
TRAP + 12( 104412) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOFT-SUR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
RESYNC PROGRAM 


CZORKBO DR11-w INTRPROC EXER 
TRAP TABLE 


013666 
013674 
013702 


013704 
013712 
013714 
013720 


013722 


013742 


013746 
013750 


013752 


012737 
032777 
001010 


011657 


104016 
104412 


000207 


010000 
001000 


001000 
001436 


001000 
001436 


001440 


000002 
001446 
165376 
100000 


000002 
001446 


C6 
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FLSSOSSHSS SESE SESEESHESESEESESEEESEEEEEESESEEEESEEEEEEEEESEEEEEEEOEE 


. SBTTL i COMMUNICATION SUBROUTINES 
WICMPN 
TTT TTT TTT TTTOTTT TTT TTT TTT TT TTT TTT TTT TTT TOT TTT TTT TTT TTT eT 


001436 WTCMPN: MOV #10000, ABORT sSETUP ABORT TIMER 


165516 BIT #1000, 8CSR 
BNE 2s sIF OSTATC IS ONE,WAIT FOR O 
165506 _ 18: BIT #1000, 8CSR sWAIT FOR OSTATC#1 
BNE 4s 3GO AHEAD; IT HAS COME 
DEC ABORT 
18 sIF NOT STUCK IN WAIT LOOP, 
sKEEP WAITING 
BR 38 sWAITED TOO LONG; ABORT PROGRAM 
165466 238: BIT #1000, aCSR sWAIT OSTATC=0 
BEQ as 3GO AHEAD; IT HAS COME 
DEC ABORT sKEEP WAITING 
BNE 2s 
38; MOV (SP), TESTPC sSAVE LOCATION WHERE PROGRAM 
sORIGINATED 
104000+16 
SYNC sRESYNCHRONIZE BOTH PROGRAMS 
sFROM START 
4t;: RTS PC 


LISS SESRASSCELSSSSHAKECAEHROSACHHERAASHEHHHASSHSHAHAREHDAHKEHAHHHEHAOSEH 


é 
BS SSSSSSSSSSOSSSSSSSSHSSESESSEEEESHESESEESSSEEEEEESEEEESEEEEEEEEEEEESD 


GOCMPN: 
165436 BIT @2,8CSR sIS Fl CLR? 
BEQ 16 sIF SO,SET Fi 
001446 MoV @CSR, TEMP 
001446 BIC @81T15, TEMP 
001446 BIC 2, TEMP sF1 IS SET,CLR IT 
165404 MOV TEMP ,@CSR 
RTS PC 
001446 18: MOV @CSR , TEMP 
001446 BIC o61T15, TEMP 
001446 BIS @2, TEMP 
165352 MOV TEMP ,@CSR 
RTS PC 


CZDRKBO DR11-W INTRPROC EXER 
CPu PRIORITY SUBROUTINES 


014050 
014050 
014056 
014060 
014062 
014064 


014066 
014074 


014076 
014076 
014104 
014106 
014110 
014112 
014114 
014122 


012737 
000207 


001434 


000340 


001434 


DF 
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000126 


177776 


000126 


177776 


-SBTTL CPU PRIORITY SUBROUTINES 


FESSSSSSSSHSSHESEHESHHSASEEEHOEEEEEEEEEEEESEEEEEEEEEEEEEHEEEEEEOEOEE 


3 CPUHI 


FE EFSSHSOHRESSSSHOEEEEEHEEEEEEEOHEHEEHEEEEEEEEEEEEEEEEEEEEEEHEOEEEEEES 


CPUHI: 


CMP BOARD , 126 sIS THIS CPU LSI? 

BNE 1$ sNO,IT IS UNIBUS 

106427 

200 

RTS PC 
18; MOV @340,PS sSET HIGH PRIOR. IN UNIBUS 

RTS PC 
FF SSSSHSSSHESHESSHSSSESESESOEEEEHESOSSESEESESEEEEEEESEHEEEEEKESEEEESEEE 

CPULO 

sgnembenedennenenennnanennenenennensensnaunanneennenaenennenneens 
CPULO: 

CMP BOARD , @126 

BNE is 

seater 


18: MOV @0,PS 
PC 


CZORKBO DOR11-wW INTRPROC EXER 
INTERPROCESSOR PROGRAM RESYNCHRONIZATION ROUTINE 


-SBTTL INTERPROCESSOR PROGRAM RESYNCHRONIZATION ROUTINE 


BF SSSSOSSSSEESESHEEEEHEEEEEEEEESEEEEEEEEEEEEESESEEEEEOEREEESEOEEDE 


te) 
1970 


004737 


013777 


012706 
005737 
001404 
012737 


000403 
012737 
005001 
005301 
0013576 


005337 
001372 
000005 


104401 
000407 


000137 


011360 


001440 


001100 
001452 
000017 


000036 


001444 


014212 


002742 


E6 
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165264 


001444 


001444 


sRSYNC 1 
BF FSOSSSAAHSSSEHSHSESHESSHEHSESEAEESEEASEEEEEHEEHEEEEEEEEEEEHEHEEHEEEEEEEEED ' 
RESYNC: JSR PC,RSTVEC 
sMOVE TESTPC VALUE TO BOR FOR COMPANION 
MOV TESTPC ,@B0R 3 SAVE ERROR PC 
MOV @STACK ,SP | 
TST MSTER sWAS THIS CPU STARTED AS MASTER? 
BEQ MRDEL Y sYES 
SLDELY: MOV #15., TIME sSLAVE CPU;WAIT FOR MASTER TO REACH ITS 
sRESYNC ROUTINE 
BR WTSYNC | 
MRDELY: MOV @30., TIME 
WTSYNC: 
18: CLR R1 
2s: OEC R1 
BNE 2s 
DEC TIME 
BNE 18% 
RESET 
TYPE Pht nerves ASCIZ STRING 
6R T OVER THE ASCIZ 
sees -ASCIZ SCRLF >vonesvnc.. Secmre 
$ 
SYNCST 


-SBTTL ASCII MESSAGES 


EM1: .ASCITI 


-ASCIZ /SLAVE FAILED TO ECHO DBR CONTENTS/ 


EM2: -ASCII / STATUS: MASTER/<CRLF > 


/TEST 1 


STATUS: MASTER/<CRLF > 


CZORKBO DR11-W INTRPROC EXER 
ASCII MESSAGES 


0 
1971 


i) 
1972 
° 


° 
1973 
° 


i) 
1974 


1975 


1976 


oO 
1977 
° 


1978 
te) 


® 


MACRO M1200 27-DEC-83 


122 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIT 


Fe, 


11:11 PAGE 103-1 


/SLAVE FAILED TO ECHO ‘STAT’ 


7 STATUS: MASTER/<CRLF > 


/FAILED TO INTR ON A ‘DATI'/ 


4 STATUS: MASTER/<CRLF > 


/STATUS ER ON ‘DATI’/ 


4 STATUS: MASTER/<CRLF > 


/WORD COUNT ER ON ‘DATI‘/ 


4 STATUS: MASTER/<CRLF > 


BITS/ 


SEQ 70 


--—— 


CZORKBO DR11-W INTRPROC EXER 
ASCII MESSAGES 


° 
1979 


1980 


1981 


1962 


1964 


1986 


Gh 
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BE ESERESSSERRSRESESESESSERE ESSSSERR SES 


EM7: 


EM10: 


EM11: 


EMi2: 


-ASCIZ /BUFFER ADRS ER ON ‘DATI'/ 


-ASCII / STATUS: SLAVE/<CRLF> 


-ASCIZ /FAILED TC INTR ON A ‘DATO’ 


-ASCII / STATUS: SLAVE/<CRLF> 


-ASCIZ /STATUS ER ON ‘DATO'/ 


-ASCII / STATUS: SLAVE/<CRLF> 


-ASCIZ /WORD COUNT ER ON ‘DATO’/ 


-ASCII / STATUS: SLAVE/<CRLF> 


SEQ 71 


CZDRKBO DR11-W INTRPROC EXER 


ASCII MESSAGES 
1987 015053 
015056 


1988 015104 


1991 Staeee 


1992 015233 


015311 
015314 


Hé 
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-ASCIZ /BUFFER ADRS ER ON ‘DATO‘/ 


EM15: -ASCII / STATUS: SLAVE/<CRLF > 


-ASCIZ /DATA ER ON ‘DATO'/ 


EM14: -ASCII /STATUS: SLAVE/<CRLF> 


-ASCIZ /READY BIT WAS SET - IT SHOULD BE CLEAR/<CRLF> 


EM15: -ASCII / STATUS: MASTER/<CRLF> 


-ASCII /MASTER CANNOT START COMMUNICATION WITH SLAVE -/ 


SEQ 72 


CZORKBO DR11-W INTRPROC EXER 
ASCII MESSAGES 


1994 


1995 


1997 


1996 
1999 


015317 


127 


16 
MACRO M1200 27-DEC-83 11:11 PAGE 103-4 


111 -ASCIZ /WAITING FOR DSTATC /<CRLF> 


+4 EM16: -ASCIZ /STUCK WAITING FOR COMPANION FOR GO-AHEAD/<CRLF > 


000 
pot EM17: -ASCII /TEST S TIME OUT ERROR-/ 


101 -ASCIZ /SLAVE SHOULD NOT HAVE INTERRUPTED/<CRLF > 


124 EM20: -ASCIT / STATUS: MASTER/<CRLF > 


123 -ASCII /MASTER IS LEFT WAITING FOR INTERRUPT TO OCCUR/ 


SEQ 73 


CZORKBO DR11-wW INTRPROC EXER 


ASCII MESSAGES 


2001 015616 


2003 015664 


J6 
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-ASCIZ 


EM21: -ASCII 


-ASCIZ 


EM22: .ASCIZ 


MSGi:  .ASCIZ 


/VIA ATTN SET/<CRLF > 


/TEST 2 STATUS: MASTER/<CRLF > 


ZERROR BIT IN MASTER CSR NOT CLEAR/ 


/BURST DATA LATE BIT OF EIR WAS NOT SET/<CRLF> 


<CRLF> /TEST 3-BLOCK MODE XFERS/<CRLF> 


SEQ 74 


= 


IK6 
CZORKBO DR11-wW INTRPROC EXER MACRO M1200 27-DEC-83 11:11 PAGE 103-6 SEQ 75 
ASCII MESSAGES 


2007 0160350 200 124 105 MSGe: -ASCIZ <CRLF> /TEST 4-BURST MODE XFERS/<CRLF > 
016033 123 124 040 
016036 064 oss 102 
016041 125 122 123 
016044 124 040 115 


2008 016062 200 124 105 MSG3: -ASCIZ <CRLF>/TEST S-BURST DATA LATE/<CRLF> 


016076 124 040 104 
016101 101 124 101 
016104 040 114 101 
016107 124 105 200 
016112 000 
2009 016115 105 122 122 OH1: -ASCIZ /ERRPC BUSADR EXPCT RCVD/ 

016116 120 103 040 
016121 040 040 102 
016124 125 123 101 
016127 104 122 040 
016132 040 105 130 
0161355 120 103 124 
016140 040 040 040 
016143 122 126 


2010 016150 105 122 = OH2: -ASCIZ /ERRPC MEMADR EXPCT RCVD/ 


016156 115 

016161 105 115 101 

016164 104 122 040 

016167 040 105 130 

016172 120 103 

016175 040 040 040 

016200 122 103 126 

016203 104 000 
2011 016205 105 122 122 OHS: -ASCIZ /ERRPC/ 

016210 120 103 000 
2012 .EVEN 
20135 016214 001116 001122 001124 OT1: SERRPC , SBDADR , SGDDAT , $BDDAT ,O 

1 001126 000000 
2014 016226 001116 000000 OT2: SERRPC.O 
2015 016232 001440 000000 OTS: TESTPC,O 
2016 bE SCSHHBOESEEEEAEEKEEHKEEDEBEKEEHREHEEASEROEEBASSAEEOASAEEEAEAEREHDEARE 
2017 s'OBUF’ IS THE WORKING AREA IN MEM FOR ALL NPR OPERATIONS 
2018 8 8 2S66866660666686686666666666666866660606066066666666066686686866806866 
2019 016236 000000 : 0 31ST ADRS OF DATA BUFFER 
2020 000001 . END 


BLE atlE PERERA IR vie 8 1 AO CE 


L6 
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SYMBOL. TABLE 
ABORT 001436 —M10 =: 014722 PS * 177776 SW2. = 000004 $FILLS 001155 | 
BAR 001416 EM11 014765 PSW = -177776 SW3 =~ 000010 $GDADR 001120 | 
BOR 001422 Emi2 015034 PWRVEC= 000024 SW4 = =: 000020 $GODAT 001124 | 
BITO = 000001 —M13 015104 RCVTMO 001500 SWS = =_ 000040 $GET42 011254 
BITOO = 000001 —M14 015145 ROCHR = 104410 SW6 = 000100 $GTSWR 013056 
BITO1 = —miS 015233 IN = 104411 SW7 = 000200 HD | 
BITO2 = 000004 EM16 015355 RESVEC= 000010 SW8 = 000400 $ICNT 001104 
BITO3 = 000010 EM17 015427 RESYNC 014124 SWw9 = 001000 $INTAG 001135 
BITO4 = 000020 EM2 014327 001464 SYNCST 002742 $ITEMB 001114 
BITOS « EM20 015521 RSTVEC 011360 TBITVE= 000014 sLF 001166 
BITO6 = 000100 EM21 015634 RSYNC = 104412 T 001446 $LPADR 001106 
BITO7 = 000200 EM22 015726 RTRN 003462 TESTPC 001440 $LPERR 001110 | 
BITOS = Ems 014410 R6 =#000006 TIME 001444 $MNEW 013561 
BITO9 = 001000 eMa 014463 R7 =8000007 TKVEC « sMSWR 013550 
BIT1 = 000002 EMS 014527 SAVE 001450 TOTAL 001442 #NULL 001154 
BIT10 = 002000 014577 SCOPE = 000004 TPVEC « $OCNT 012204 
BIT11 = 004000 —N7 014650 SETUP2 001704 TRAPVE= 000034 SOMODE 012. 
BIT1i2 = 010000 EOPT 011152 SETUPS 001730 TRTVEC* 000014 $ 012772 
BIT13 = 020000 EOPTA 011320 SETVEC 011340 TYPOS = 104405 $PASS 001100 
BIT14 = 040000 EOPTB 011326 SINIT1 006162 TYPE = 104401 $QUES 001164 
BIT1S = 100000 ERROR = 1 SINIT2 006374 TYPOC = 104402 $ROCHR 013270 
BIT2 = 000004 ERRVEC= SLBRD 007420 TYPON © $RDLIN 013420 
BIT3 = 000010 013754 SLDELY 014150 TYPOS = 104403 $RDSZ = 000010 
BIT4 = 000020 GTSWR = 104406 SLVFIN 011156 001414 $RTNAD 011276 
BITS = 000040 HT = 000011 SLISTR 006330 WTCMPN 013666 $SCOPE 012714 
BIT6 = 000100 ICOUNT 001454 STACK = 001100 WTSYNC 014166 $SETUP= 000107 
BIT7 = INTADR 001410 START 001522 XMITMO 001472 $STUP = 177777 
BITS = 000400 IOTVEC= START1 001506 XPRAM 001456 $SVLAD 012756 
BIT9 = 001000 011416 START2 001514 $AUTOB 001134 $SWR = 122000 
001434 . ST * 177774 $BDADR 001122 $SWRMK= 000000 
BPTVEC= 000014 MINIT1 002760 STST1 $BDDAT 001126 $TERM = 000026 
BROTYP 002056 MINIT2 003226 STST2 006512 $BELL 001160 $TKB 001146 
CKSWR = 104407 MORS 002524 STSTS 006572 SCHARC 011756 $TKS 001144 
011400 MRDELY 014160 STST4 007506 $CKSWR 013006 $TN == 000001 
CNT 001430 MSBRD 004550 STSTS 010404 SCMTAG 001100 $TPB 001152 
014050 MSG1 015776 SuR 001140 s $TPFLG 001157 
CPULO 014076 MSG2 016030 SWRCK 012550 SCNTLG 013543 $TPS 
cR = 000015 MSG3 1 SWREG 000176 SCNTLU 013536 $TRAP 013572 
CRLF = MSTER 001452 SWO os 1 SCRLF 001165 $TRAP2 O01 
CSR 001420 * 106427 SWOO = 000001 $08LK 12424 $TRP = 000013 
016236 MTST1 003106 S$WwO1 © 000002 $DOAGN 011274 $TRPAD 013640 
DDISP = 177570 mTST2 SWwO2 = 000004 $OTBL 012414 $TSTNM 001102 
1 016113 MTSTS 003652 SWO3 = 000010 ¢ 11264 STTYIN 013526 
OH2 016150 MTST4 SWO4 = SENDCT 011232 $TYPDS 012210 
r) MTSTS SWOS = 000040 $ENDMG 011303 $T ° 
DISPLA 001142 NUM 14 SWO6 = 000100 SENULL 011300 $TYPEC 011630 
OISPRE 000174 PIRQ © 177772 SWO7? «= sEOP 011202 $TYPEX 011760 
DRVCTO 001424 PIRQVE= 000240 SWwOS = SEOPCT 011224 $TYPOC O01 
DRVCT2 001426 PRO = 000000 SWO9 = 001000 SERFLG 001103 STYPON 012022 
ORVECT 001412 PRL = 000040 SWi = 000002 $ERMAX 001115 $TYPOS 011762 
* 177570 PR2 = 000100 $W10 = 002000 SERROR 012434 $XOFF = 000023 
OT1 016214 PRS = 000140 SWil © 004000 SERRPC 001116 $XON * 000021 
oT2 016226 PR4 = 000200 SWi2 © 010000 001170 $XTSTR 012720 
OT3 016232 PRS = 000240 Swi3 «= SERRTY 012560 $$GET4= 
EMTVEC= = 000300 S$Wi4 = 040000 sERTTL 001112 SOFILL 012205 
Emi 014234 PR7 = 000340 SwiS = 100000 SFILLC 001156 


CZORKBO DR11-wW INTRPROC EXER MACRO M1200 27-DEC-83 11:11 
SYMBOL TABLE 


- ABS. 016240 000 
000000 001 
ERRORS DETECTED: 0O 
VIRTUAL MEMORY USED: 65456 WORDS ( O PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 


ELAPSED TIME: 00:02:21 
GZORKB .BIN, CZDRKB .LST/-SP=SYSMAC . SML .CZDRKB.P11 


M6 
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